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La rentrée nous a apporté son lot de bonnes et de mauvaises nouvelles. Commen¬ 
çons par les bonnes ! 


Le TELESTRAT est enfin disponible, d'ailleurs, la rédaction vient juste d'en recevoir 
un... C'est une belle machine et, si le Basic souffre un peu d'une mise au point tar¬ 
dive, il n'en reste pas moins l'un des meilleurs et des plus rapides du moment. Côté 
télématique, le concept est tellement nouveau qu'il devrait susciter un réel intérêt, 
y compris au sein des PME... 

Les mauvaises nouvelles ? La modification des tarifs téléphoniques locaux (taxe de 
base toutes les 6 minutes) va alourdir l'addition chez les utilisateurs de télématique... 
Quant à la taxe sur les cassettes vierges, sous des prétextes plus que contestables, 
et s'applicant sur un produit déjà soumis aux taux le plus fort (33 %), elle conduira 
les utilisateurs à gérer au plus près l'utilisation de leurs bandes. 

Denis BONOMO 
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(V • Une ligne téléphonique est à votre disposition, vous met¬ 
tant en contact direct avec la rédaction. Ceci est un ser¬ 
vice sans égal ! Respectez simplement les horaires et les 
jours que nous vous indiquons : 

MERCREDI de 9 h à 12 h et de U h à 17 h. 
VENDREDI de 9 h à 12 h seulement. 

Tout appel en dehors de ces créneaux sera refoulé 
dépensez pas inutilement votre argent I 

Le numéro 99.52»98»ï Y « 
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20, rue de Montreuil - 94300 VINCENNES - 'S (1] 43.28.22.06 

du mardi au vendredi :10h30à13h - 15hà19h — le samedi 10 h 30 à 19 h 


REVENDEUR OFFICIEL AGRÉÉ ORIC-FRANCE 



SYNTHÉVOC 1 


K> 



'Il ne lui manque que la parole', synthe. V0C1 la lui donne ! 
Très performant ce synthétiseur vocal va vous permettre 
de rendre votre ordinateur plus bavard qu'un politicien en 
campagne ! 

□ synthétiseur vocal 


550 F 


[\ \ 



MODEM 

Votre ORIC s'ouvre sur l'extérieur. Il ‘discute - 
avec ses semblables et accède au réseau "minitel' 
Fourni avec interface intégrée et logiciel 
modem 1490 F 



□ moniteur couleur 


2490 F 


a-'*- 


Rallonge Péritel 

Ne soyez plus "collé" à l'écran ! 
□ rallonge 95 F 



Interrupteur 
Ne courrez plus le risque de faire sauter la ROM 
□ interrupteur d'alimentation 85 F 



Imprimante CITIZEN 1200 

120 CPS matrice 9x9- traction ou friction • jusqu'à 
3 ex. compatible EBSON • garantie 2 ans • interface cen¬ 
trons intégrée. 

Particulièrement bien adaptée à l'Amstrad cette imprimante 
vous donnera toutes satisfactions ! Compatible avec la plu 
part des logiciels de copie d'écran du commerce elle accepte 
également les caractères graphiques. 

□ imprimante CITIZEN 120 0 .3290 F 


Magnétophone 

Ce magnétophone spécialement conçu pour les 
micro-ordinateurs vous évitera bien des soucis. 
Entrée DIN ou Jack. Niveau réglable Témoin 
sonore et lumineux. Alimentation intégrée 
□ magnétophone 360 F 
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JASMIN 2 

Le lecteur de disquette que votre One préfère. 
Permet, entre autres, de recopier sur disquettes 
les logiciels (même plombés) sur cassette 

□ lecteur double tète 2.490 F 



□ atmos 


990 F 


□ 2 titres 

□ 3 titres 

PROMOTION: dans la liste ci-dessous D4 titres 

□ 5 titres 

Logiciels pour ORIC 1 exclusivement q jq l( j res 


pengoio 

>acluf>it-‘ 

finance' 

ralculu*. 


MMCtor vam 

loyger gastronon 

jenta» calorie 

qtifrre dr\ couleurs ;>q zag 


ice giani 
fromage 
compte bancaire 
familial 


145 F 
195F 
220 F 
250 F 
395 F 

□ le monde animai 


LOGICIELS CASSETTES 


□ digger 

□ guerre de sécession 

T ] lancelol . 

100F 
120 F 
155F 

□ cheops . 

□ chess. 

□ cité maudite (la). 

140 F 
140 F 
140 F 

□ millionnaire (le) . 

120 F 

□ zodiac (signes) . 

100 F 

□ clavidact. 

115 F 

□ mission délia 

95 F 

□ colorie. 

,105F 

□ damac (jeu de dames) 

100 F 

□ mission impossible 

120 F 

□ trick shol 

,100F 

□ elephorm. 

100 F 

□ monopolic. 

160 F 

□ canmball . 

95 F 

□ elcphcolor. 

100 F 

□ montségur. 

140 F 

□ waydor (en français) 

110F 

□ dialogue . 

120F 

[ : dialogue. 

120 F 

□ pasta blasta 

95 F 

[J cobra pinball. 

140F 

□ mots croisés. 

120 F 

□ ultima zone 

110F 

□ colorie . 

95 F 

□ multicalc. 

190 F 

□ insect insanity. 

95 F 

□ compilateur graphique 250 F 

□ mushroom maniac .. 

100 F 

□ acheron's rage . 

95 F 

□ concours hippique .. 

70 F 

□ optimum 

140 F 

□ tendre poulet. 

120 F 

□ conjugaison. 

120F 

□ ordi-tiercé. 

140 F 

□ nessy . 

. 95 F 

1 1 course lettre 

95 F 

□ oric miner. 

135 F 

□ cobra . 

140F 

□ crypt show. 

100 F 

□ oric miner. 

135 F 

□ damsel in distress 

105 F 

□ 0 bug 

140 F 

□ panic . 

95 F 

□ dambusier . 

. 100 F 

□ dam buster. 

100 F 

□ planette bleue 

120 F 

□ frigate commander 

100 F 

□ détective. 

149 F 

D playground . 

95 F 

□ gubbie 

100F 

□ diamant île maudite 

160F 

n polyfichier. 

180 F 

□ le dernier métro .... 

150 F 

□ don juan . 

150 F 

□ probe 3 . 

100 F 

□ ordidaclic . 

250 F 

□ durendal . 

120F 

□ rabbil . 

65 F 

□ 3 D oxo BG 

. 100 F 

□ élysée . 

145 F 

□ ral splat . 

105 F 

□ xénon 1 . 

,100F 

□ lire flash. 

120F 

□ rd v de la lerreur ... 

95 F 

□ starter 3 D 

130 F 

□ flûte inca (la) 

120F 

□ retour du dr genius . 

160 F 

□ formule 1 . 

130F 

D frelon. 

120F 

□ reversi . 

95 F 

□ dossier "G - . 

. MO F 

□ fromage. 

95 F 

□ reverse . 

90 F 

□ assimil (espagnol) . 

499 F 

□ galaxion. 

95 F 

□ s.a.g.a. 

150 F 

□ basic étendu. 

140 F 

□ ghost gobbler . 

100F 

□ secret du tombeau (le) 

140 F 

□ dédal. 

. 120 F 

D godilloric. 

90 F 

□ Stanley . 

120 F 

□ image. 

125F 

□ gravitor. 

90 F 

□ star . 

120 F 

□ lone raider. 

105 F 

□ green cross toad. . . 

100 F 

□ stress . 

120 F 

□ titan. 

,130F 

□ hades . 

250 F 

□ styx . 

120 F 

□ 1815. 

160 F 

□ hobbit (the). 

180 F 

□ super copy écran ... 

120 F 

□ 3 0 fongus . 

.140 F 

□ hopper . 

70 F 

□ super jeep . 

120F 

□ 3 0 mare . 

100 F 

□ hyperspace 4 . 

120F 

□ terminus . 

120F 

□ 3 0 munch. 

. 140 F 

□ intox et zoé. 

180 F 

□ tic tac . 

120 F 

□ affaire en or. 

. 145 F 

□ invader. 

100 F 

□ tortue logic . 

150 F 

□ aigle d'or . 

180 F 

□ karatéka . 

99 F 

□ tour fantastique (la). 

120 F 

□ assimil. 

510F 

□ lievre et la tortue (le) 

100 F 

□ tour du monde en 80 

120 F 

□ atlantis. 

140 F 

□ locus . 

95 F 

□ transat one . 

140 F 

□ basic turbo . 

140 F 

□ logoV 1. 

295 F 

□ trésor du pirate (le).. 

95 F 

□ bering 

150 F 

G lorigraph. 

290 F 

□ triathlon. 

150 F 

□ bombyx .... 

120F 

□ lontel. 

395 F 

□ tyrann . 

185 F 

□ bric à brac 

. 65 F 

□ lotoriciel . 

120 F 

□ vision. 

120F 

□ budget familial. 

135 F 

□ macadam bumper ... 

180 F 

□ vortex . 

260 F 

□ business man. 

. 140 F 

□ masque d'or (le) ... 

149 F 

□ world war 3. 

100 F 

□ calcul mental. 

120F 

I master paint . 

250 F 

□ xénon 3 . 

105 F 

□ calcul en 4*”" . 

120F 

□ meulre â gde vitesse 

180 F 

□ yi king (le). 

180 F 

□ catégorie . 

95 F 

□ microciel. 

120F 

□ zoolympics . 

120 F 

□ challenger. 

130F 

□ microgéo. 

140 F 

□ zorgons revenge_ 

100 F 


LIVRES 

LOGICIELS DISQUETTE (JASMIN) 



□ guide pratique 

78,50 F 

□ assembleur 

490 

□ découverte de T oric 

95 F 

□ easy text 

590 

□ oric à l’affiche 

95 F 

! multifich 

590 

□ oric atmos pour tous 

105 F 

□ cale .... 

590 

□ 52 prog. pour tous 

105 F 

□ forth 

590 

□ l'assembleur de l'atmos 

95 F 

□ jasmitel 

490 

□ interfaces pour oric 

59 F 

□ mathégraph 

249 

□ l'oric à nu 

150 F 

□ finances 

219 

□ programmes en lang. mach. 

95 F 

□ conquérants 

219 

□ manuel référence - tome 1 

□ manuel référence • tome 2 

138 F 
120 F 

□ zonga 

199 


Imprimante MCP 40 

l'imprimante 4 couleurs aux couleurs d'ORIC ! 
□ imprimante MCP 40 ggg f 


m 

Cassettes vierges C20 ’— 

□ les 5. 

□ les 10... .*. 

□ disquette vierge 3 pouces. 


45 F 
80 F 

35 F 


Câble Imprimante 

Vous permet de connecter votre Oric à n'importe 
quelle imprimante au standard "centronic" 

□ câble imprimante 160 F 

Câble Moniteur 

Pour brancher votre Oric â un moniteur mono¬ 
chrome 

□ câble moniteur ssf 



L'IMPRIMANTE PERSONNELLE 
COULEUR "OKIMATE 20" 
L'OKIMATE 20 est la première imprimante per¬ 
sonnelle dans sa gamme de prix à offrir une 
véritable impression couleur. Une tète d'impres¬ 
sion à 24 éléments crée plusde 100 nuances d'une 
définition et d'une netteté exceptionnelles 
Interface centronic 

□ okimate 20 2950 F 



Esthétique, robuste, pratique le TIRVITT 2 vous séduira 1 
Contacts par micro-swiiches. un contacter sous le 
socle permet le choix 4 ou 8 directions. 

□ TIRVITT 2. 150 F 



Oes boites géniales pour ranger vos supports. 


□ pour disquettes 5” 1/4. 180 F 

□ pour disquettes 3" et 3“ 1/2. 160 F 

□ pour cassettes. 99 F 



□ joystick compétition PRO 5000 . 195 F 

□ bloc alim. ORIC. .160 F 

□ alim. 12 V pour péritel. 75 F 

□ stylos pour MCP 40 (les 4) . 49 F 

□ loulcaux papier MCP 40 (par 2) . 60 F 

□ rallong de bus 1 slot .110 F 



Le 'rnust" pour les amateurs de graphisme. Utilisée 
par la majorité des créateurs de bgiciol cette tablette 
vous séduira par sa simplicité d'utilisation et la qualité 
"top niveau - des résultats obtenus (ex. options : laire 
des points, traits, boites, cercles, texte, remplir, "zoom - ...) 
□ GRAPHISCOP 999 F 


COMMENT COMMANDER : Js possède DORICI □ ATMOS 

- Cocher le(s) articles) desire(s) ou faites en une liste sur une leuile à part. - Fanes le total + frais de port (20 F pour achats mféneurs a 500 F. 40 F de 500 à 1000 F. 60 F pour tout achat supérieur â 1000 F). 

NOM : _PRÉNOM : _ TEL :_ 

ADRESSE : - " ~ *'■_CODE POSTAL : _VILLE : _ 


Mode de paiement : G chèque □ mandat □ contre-remboursement (prévoir 20 F de frais) 
envoyer le tout à : ORDIVIDUEL 20, rue de Montreuil 94300 VINCENNES 


réseau u ' M- i u r -i 































































































































































































COURRIER 



Jean-Pierre SUPPLISSON 
répond à Alain GARNUNG 

Au sujet des pièces détachées ou 
de la réparation d'une GP50A, 
il est possible de s'adresser direc¬ 
tement à TEKELEC AIR TRONIC 
— Rue Carte Ver net — Cité des 
Bruyères — BP 02 — 92310 
Sèvres. Le prix forfaitaire d'une 
réparation est de 350 F HT. 



Martial SCHUSTER 
(93) AULNAY SOUS BOIS 

Pour un même prix, on peut ache¬ 
ter un vulgaire logiciel ORIC ou un 
logiciel à ne plus dormir la nuit sur 
AMSTRAD (...) Alors, pourquoi 
les prix des logiciels commercia¬ 
lisés sont-ils aussi élevés sur 
l'ORIC ? 

L'ORIC est une machine qui a 
bénéficié, pendant un temps du 
moins (hélas !), d'une grande pro¬ 
duction de logiciels. A l'époque, 
les prix étaient relativement 
comparables à ceux pratiqués sur 
AMSTRAD, tout au moins au 
niveau des éditeurs anglais. Il ne 
faut pas perdre de vue que, dans 
le calcul du prix d'un logiciel, on 
tient compte de plusieurs para¬ 
mètres tels que : campagne de 
pub, espérance de vie du produit, 
quantité probable de vente, etc... 
C'est sur ce dernier point que 
l'AMSTRAD bat l'ORIC : les logi¬ 
ciels qui sortent sont édités à un 
plus grand nombre d'exemplai¬ 
res. Quant à la différence de qua¬ 
lité, elle est liée aux possibilités 
bien supérieures de l'AMSTRAD 
par rapport à l'ORIC... 

O O O O O 

Rudi STAUMONT - BELGIQUE 

Est-il vrai que l'ORIC est bel et 
bien fini en Belgique ? Est-il pos¬ 
sible de s'abonner à THEO RI C de 
Belgique ? 


L'ORIC n'est pas "fini”. La diffu¬ 
sion imminente du TELESTRAT 
devrait apporter un second souf¬ 
fle à la marque, pour peu que du 
logiciel soit développé pour cette 
machine et c'est là qu'on peut 
douter. En effet, une machine 
sans environnement est invenda¬ 
ble. Ensuite, il faut tenir compte 
du réseau revendeur et là, il 
existe un problème de taille avec 
ORIC : la nouvelle machine va-t- 
elle réussir à convaincre les 
revendeurs déçus par l'ORIC-1 et 
l'ATMOS ? Si tel était le cas, on 
pourrait dire que l'ORIC a des 
chances de percer à nouveau, 
même en Belgique ! Quant au prix 
de l'abonnement à THEORIC pour 
la Belgique, il est le même que 
pour la France : 235 F... 



Eric BAZIN 

(95) ARNOUVILLE LES GONESSE 

A propos des interfaces "manet¬ 
tes" programmables : combien 
de joysticks dirigent-elles ? Sont- 
elles utilisables avec lecteur de 
disquettes ? 

Ces interfaces "programmables" 
gèrent un seul joystick. De plus, 
il faut se méfier des problèmes 
possibles avec un lecteur de dis¬ 
quettes (bus trop chargé). 

O O O O O 

Xavier THOUVENIN 
(03) VICHY 

Nous demande des équivalences 
d'adresses ROM ORIC-1 et 
ATMOS. Ce genre de question 
nous parvenant assez fréquem¬ 
ment, nous invitons nos lecteurs 
à ce procurer l'ouvrage "l'ORIC 
A NU" où l'auteur, Fabrice BRO¬ 
CHE, commente le désassem¬ 
blage des ROM ORIC-1 et 
ATMOS en parallèle. Toutes les 
équivalences entre les deux ROM 
sont donc évoquées... 



Jean-Paul COCQUIO 
(51) FERE CHAMPENOISE 

C'est avec étonnement que j’ai 
retrouvé dans "l’Ordinateur Indi¬ 
viduel" le programme "Ecran 
Mixte"paru dans Théorie N° 20. 
Ce fait nous a été signalé par plu¬ 
sieurs lecteurs. L'auteur a été 


contacté par la rédaction et nous 
a assuré que cet incident ne se 
reproduirait plus : les articles 
avaient été envoyés depuis long¬ 
temps à la revue qui les a publiés 
sans prévenir l'auteur... 

O O O O O 

Jean-Serge MAROUSEZ 
(13) SAUSSET LES PINS 

J'aimerais savoir ce qu 'il y a dans 
l'ULA de l'ORIC, ainsi que dans 
le "Custom" et la ROM du 
Jasmin. 

Là encore, ces questions nous 
sont posées assez fréquemment. 
Hélas, nous n'avons aucune 
information sur ces circuits spé 
cialisés, les fabricants gardant 
jalousement pour eux (on les 
comprend, d'ailleurs) tout ce qui 
fait la particularité de leurs appa¬ 
reils. 



Pierre-André WIART 
(83) AMPUS 

Je n'arrive pas à résoudre le 
Mystère du Kikékenkoi... 

Nous vous rappelons que, pour 
les jeux d'aventure, il convient 
d'adresser vos questions à la 
rubrique "Aventuriers en Perdi¬ 
tion". Votre nom et votre adresse 
figureront dans la revue afin que 
les lecteurs les plus avancés dans 
• l'aventure puissent vous aider par 
un courrier transmis directe¬ 
ment... 

O O O O O 

Christelle SOUVIGNET 
(26) BUIS LES BARONNIES 

Je n'arrive pas à sauvegarder et 
recharger mes programmes en 
vitesse rapide. Seule la vitesse 
lente me donne satisfaction, 
sinon j'obtiens des erreurs nom¬ 
breuses. Cela provient-il de mon 
ATMOS ? 

Notre lectrice n'est pas la seule 
à nous poser cette question. En 
fait, il est peu probable que le 
défaut provienne de l'ATMOS. Il 
faut plutôt chercher côté magné¬ 
tophone. Si la vitesse de celui-ci 
fluctue légèrement (pleurage ou 
scintillement), si les aigus "res¬ 
tent coincés" à cause d'une tête 
sale ou usée, il est probable que 
les chargements en vitesse rapide 
soient plus qu'acrobatiquesH 
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Denis BONOMO 


LA 
CHASS 
AU 
BUG 



L e bug est un animal vicieux qui s'introduit en douce dans 
les programmes en n'ayant qu'un seul but : faire en 
sorte que ça ne marche pas... Cette sinistre bestiole est 
connue en France sous le nom de "bogue" car certains trou¬ 
vent triste d'utiliser des termes anglais. Bof I 


Dans toutes les bonnes revues, 
les programmes sont testés 
avant d'être publiés. C'est le cas 
pour THEORIC : si un message 
d'erreur apparaît dès la première 
exécution, il est certain qu'il faut 
en rechercher l'origine dans la 
saisie du listing. La saisie, c'est 
ce que vous avez fait en reco¬ 
piant le programme de la revue... 
Les erreurs les plus fréquentes 
sont dues aux possibles confu¬ 
sions entre certains caractères : 
la lettre O et le chiffre 0 en parti¬ 
culier. Si certaines imprimantes 
barrent le zéro, d'autres se 
contentent de le reproduire d'une 
manière presque rectangulaire, 
alors que le 0 est ovale. Le chif¬ 
fre 1 et le I majuscule peuvent 
également être confondus, mais 
le plus grand danger consiste à 
prendre un L minuscule (I) pour 


un 1. Là encore, nos impriman¬ 
tes matricielles ne nous facilitent 
pas la tâche. 

Lorsqu'une erreur a été commise, 
les conséquences peuvent être 
de différentes natures : 

• Le programme se plante 
complètement et l'ordinateur ne 
rend pas la main. Seule solution : 
remise à zéro complète (RESET) 
ou encore coupure de l'alimenta¬ 
tion. Tout ce qui était en mémoire 
est perdu... Ceci est rare et sur¬ 
vient surtout pour des program¬ 
mes écrits en langage machine 
(ou faisant appel à un sous- 
programme en langage machine). 

• Le programme semble «tour¬ 
ner», mais les résultats obtenus 
ne sont pas ceux qui étaient 
attendus. Là, c'est plus vicieux : 
l'erreur, si elle ne provient pas 
d'une ligne tout bonnement 


oubliée ou mal écrite, peut être 
due à une variable mal définie. 
Remplacez par inadvertance 
MO$ par M0$ : le résultat ne se 
fera pas attendre. 

• Le programme s'arrête sur un 
message d'erreur. Là, l'interpré¬ 
teur du Basic joue le rôle de 
guide. SYNTAX ERROR sera for¬ 
cément dû à une erreur de frappe. 
Par contre, un TYPE MISMATCH 
ERROR ou un OUT OF DATA 
sera plus difficile à analyser, sur¬ 
tout si la ligne comprend plu¬ 
sieurs instructions. Dans ce cas, 
il sera bon de la scinder en plu¬ 
sieurs parties en attribuant un 
numéro à chacune d'elles. Le 
message d'erreur désignera alors, 
avec plus de précision, la ligne 
fautive. Il sera judicieux de noter 
son numéro, mais aussi d'impri¬ 
mer, s'il y a lieu, le contenu des 
variables qui s'y trouvent. Dans 
le cas des variables indicées, ne 
pas négliger d'imprimer la valeur 
de l'indice. Nanti de tous ces ren¬ 
seignements, il est beaucoup plus 
facile de rechercher l'erreur... 

Un seul conseil fera office de 
conclusion : il faut accorder le 
maximum d'attention au travail 
de saisie. Pour un long pro¬ 
gramme, il sera préférable de pro¬ 
céder en plusieurs étapes pour 
éviter la fatigue visuelle, qui 
conduit à prendre un caractère 
pour un autre ou à sauter une 
ligne ! 


BIBUORIC 


"DICTIONNAIRE DE 
L'INFORMATIQUE” 
(LA VILLEGUERIN) 

185 F 

Les termes utilisés en 
informatique vous 
effrayent ? Soit, vous 
n'aurez plus d'excuse 
maintenant, car bien 
des définitions sont 
données par ce 
dictionnaire. En 180 
pages, vous ne 
pourrez plus rien 
ignorer des définitions 


aussi différentes que 
celles d'ADA, 
d'IMPLEMENTER ou 
de 

TELECHARGEMENT. 

Beaucoup de termes 
nous viennent de 
l'anglais. L'origine de 
ceux-ci est proposée. 
L'expression anglaise 
est citée. Pour chaque 
terme important, 
nécessitant des 
développements, la 
définition est suivie 


d'explications 
concernant la 
conception et les 
applications. Une 
signification des sigles 
et acronymes est 
donnée en début 
d'ouvrage. Un lexique 
anglais-français et 
français-anglais le 
termine. 

Pour que 

l'informatique ne soit 
plus une langue 
obscure et pour ne 
plus parler des choses 
sans les connaître, 
tout en recevant 
conseils et mise en 
garde, nous vous 


suggérons de vous 
procurer cet ouvrage. 
Bien sûr, son prix est 
un peu rébarbatif, 


mais qui veut la fin... 
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I astrologie, vous connaissez ? Oui, bien sûr, au moins 
sous son aspect "vulgarisation", c'est-à-dire l'horos- 
■V? | cope, que vous consultez avec plus ou moins de convic¬ 
tion dans vos revues favorites. Pourtant, l'astrologie, c'est 
beaucoup plus : c'est surtout une science d'où les mathémati¬ 
ques ne sont pas absentes. De là à faire accomplir les tâches 
de calcul par un ordinateur, il n'y avait qu'un pas à franchir 
avant d'aller beaucoup plus loin : c'est ce qu'a fait un jeune 
astrologue, Christophe de CENE. 


Nous avons rencontré Christophe 
de CENE dans un bureau où ses 
clients habituels n'entrent 
jamais : ses consultations sont. 


en effet, précédées de quelques 
heures de travaux préparatoires 
qu'il accomplit au moyen d'un 
micro-ordinateur ORIC. 


Denis BONOMO 

L'interprétation du thème astral 
d'un individu, établi à partir de 
ses date, heure et lieu de nais¬ 
sance, passe par l'établissement 
d'une carte du ciel donnant lieu 
à une foule de calculs, et c'est là 
que l'ordinateur intervient. Aupa¬ 
ravant, l'astrologue devait con¬ 
sulter plusieurs ouvrages spécia¬ 
lisés, composés essentiellement 
de tables. Pour effectuer un tra¬ 
vail sérieux, il faut établir des 
recoupements et comparaisons 
entre diverses cartes du ciel éta¬ 
blies à des dates différentes. En 
gros, recherche et interprétation 
demandent près de 5 heures de 
travail... 

Mathématicien de formation, 
Christophe de CENE, vite pas¬ 
sionné par l'astrologie, a déve¬ 
loppé le logiciel GALILÉE, capa¬ 
ble de calculer rapidement et 
d'éditer les cartes du ciel : l'ordi¬ 
nateur est devenu outil, libérant 
l'astrologue de la partie la plus 
fastidieuse de son travail. Il peut 
alors consacrer tout son temps à 
l'interprétation. 

Les astrologues débutants seront 
aidés car GALILÉE leur propose 
une interprétation complète du 
thème. D'autres caractéristiques 
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ET ORDINATEUR 


de ce logiciel ? Il permet de sui¬ 
vre la progression des planètes 
autour d'un thème, véritable des¬ 
sin animé astral. Les thèmes peu¬ 
vent être enregistrés sur dis¬ 
quette puis rappelés à volonté. 
Mais le principal aspect de GALI¬ 
LÉE est son ouverture vers la télé¬ 
matique : l'astrologue peut créer 

son service MINITEI_ 

Plus, dans un proche avenir, les 
utilisateurs de GALILÉE pourront, 
s'ils le désirent, se connecter au 
réseau échangeant leurs informa¬ 
tions et constituant une véritable 
banque de données astrologi¬ 
ques. 

Comme on peut le voir, outre le 
gain de temps qu'il procure, 
conduisant à une amélioration de 
la qualité des services rendus, 
GALILÉE ouvre la voie à une nou¬ 
velle catégorie de logiciels en 
évoluant vers une sorte de 
"système expert”. 

Plusieurs astrologues utilisent 
déjà GALILÉE, tournant sur ORIC 
ATMOS + SEDORIC. Christophe 
de CENE a mis en service, grâce 
au TELESTRAT, un micro-serveur 
dont le nom est URANIE, ouvert 
24 heures sur 24. Le numéro 
d'appel est 99.300.600. Le logi¬ 
ciel est en cours d'évolution et, 
tout au long de son élaboration, 
l'auteur a grandement apprécié 
les qualités des fonctions téléma¬ 
tiques du TELESTRAT. 

Côté fiabilité, Christophe de 
CENE n'a rien à regretter : son 
appareil tourne sans problème, et 
il est un des premiers à avoir pos¬ 
sédé le TELESTRAT... Dès que 
l'HYPERBASIC sera complète¬ 
ment au point, le serveur URANIE 
sera pleinement opérationnel. 

Si l'expérience acquise par Chris¬ 
tophe de CENE vous intéresse, il 
est possible de le contacter, dans 
la journée, au 99.30.08.43 ; il a 
en projet le même logiciel sur 
compatible IBM... 



Astrologie : les moyens d'hier 
et d'aujourd'hui. 
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SINGERIE 



A vant de vous lancer dans la saisie de ce listing, 
reportez-vous au numéro 21 de THEORIC. Des con¬ 
seils y étaient dispensés : suivez-les I 
Après avoir tapé et éventuellement corrigé le pro¬ 
gramme Basic, sauvegardez-le sur une cassette. 

Tapez RUN pour implanter le code machine. 
Sauvegardez le code machine derrière le premier "mor¬ 
ceau" archivé précédemment (relire THEORIC... ) Les 
adresses de début et de fin sont données par les varia¬ 
bles A et F du programme Basic correspondant. 



ERRATUM 

Le maquettiste fou a encore frappé... La ligne 405 du listing 
SINGERIE, page 21, THEORIC 22, a disparu entre les lames de ses 
ciseaux. La voici, replacée dans son contexte. 

40e DATA 7D.7D.7D,7D.7D.7D.7D.7D,IA.IA,IA,IA,IA.IA,IA.)A,8E3t 
405 DATA IA,IA,IA,IA,IA.IA,IA.IA.IA.1A.IA,IA.IA.IA.IA. IA,0FDD 
410 DATA 1A,1A,1A,1A,1A,1A,IA,IA,IA,IA,IA,IA,IA. IA, IA. IA. 117D 
Sauvegardez sur la cassette "code machine" les zones mémoire 
suivantes : CSAVE "SINGE5",A#5800,E#67FF 
CSAVE "SINGE6",A#6800,E#7738. 



10 A=*5BO0tF=#67FF:L=10O:REPEAT:F0R A=A TO A»15:R£AD C» 

20 K=VAL(•••♦CS)tS=S+K+65536*(S+K>65535)tIF A<=F THEN POKE A,K 
30 NEXTtREAD DS:IF S=VAL(T+DS) THEN L=L+5:UNTIL A>F:END 
40 PIN6:PRINT'Erreur ligne 1 ;L 

100 DATA EA,A9,00,83,06,85,FE,80,02,04,85,05,60,48,20,33,0588 
105 DATA 58,66,BD,DF,IF, 40,00,5^148^9,03,4D,EE,54,80,EE,0D46 
110 DATA 54,68,40,A0,00,78,19,18,58,99,30,02,C8,C0,01,D0,13B1 
115 DATA F5,58,60,AO,00,B9,C3,BF,99,06,04,C8,C0,07,D0,F5,1C30 
120 DATA 20,6F,58,AO,00,B9,06,04,99,C3,BF,C8,CO,07,DO,F5,23E9 
125 DATA 60,A9,BE,A2,F8,8D,05,04,EA,EA,EA,EA,20,34,57,A9,2CDC 
130 DATA OA,8D,6A,02,20,DA,57,4C,00,56,4C,70,5A,EA,EA,20,32DC 
135 DATA DA,57,A9,5F,85,O7,A9,FF,B5,06,4C,83,50,C9,23,F0,3ACF 
140 DATA 0F,C9,24,F0,0B, C9,25,F0,07,C9,26,F0,03,4C,73,56,41A2 
145 DATA 4C,68,55,A5,FE,DO,03,4C,AA,50,AO,A1,B1,00,C9,6B,498D 
150 DATA 00,11,C8,B1,00,C9,6C,DO,0A,C8,B1,00,C9,60,00,03,5178 
155 DATA 4C,AA,50,4C,Cl,50,FF,00,A5,06,FO,17,AA,A0,A2,B1,596B 
160 DATA OO,C9,2O,DO,0B,8A,18,69,2O,4A,8D,B6,56,2O,7D,53,5F2D 
DATA 4C,00,56,A5,FE,F0,F9,AE,08,02,E0,B4,F0,07,EO,9C,681A 
DATA F0,03,4C,00,56,0A,0A,0A,4C,C6,58,A9,08,A2,0A,20,6CB4 
DATA 13,5A,A2,A0,BA,48,A9,00,20,13,5A,68,AA,CA,D0,F4,740B 
DATA A9,08,A2,10,4C,13,5A,A2,C4,A0,56,20,10,5A,A2,OF,79BE 
DATA 8A,48,A9,08,20,13,5A,A2,00,BA,48,A9,00,20,13,5A,7E78 


Illustrations : Jean-Luc AULNETTE 
















190 DATA 68,AA,E8,DO,F4,AO,00,88,DO,FD,68,AA,CA,DO,El,A9,8961 
195 DATA 08,A2,00,20,13,5A,4C,BD,57,20,3F,80,43,80,BB,00,8E25 
200 DATA A2,00,BD,39,59,95,60,EB,EO,06,DO,F6 I 20,00,57,AD,95C3 
205 DATA 08,O2,C9,B9,DO,OD,AC,D5,BD,CO,39,DO,O2,AO,3£),C8,9D9D 
210 DATA 8C,D5,BD,C9,98,D0,0D,AC,25,BE,C0,38,DO,02,A0,30,A622 
215 DATA C8,8C,25,BE,C9,92,D0,0E,A2,4E,AC,75,BE,C0,4E,D0,AF3F 
220 DATA 02,A2,4F,8E,75,BE,A2,00,AO,00,88,DO,FD,CA,DO,FB,881C 
225 DATA C9,84,D0,BB,AD,D5,BD,38,E9,30,8D I D5,55,A9,39,ED,C20A 
230 DATA 25,BE,0A,0A,8D,46,56,6O,AD,OO,DO,C?,A6,FO,14,A2,C91C 
235 DATA 00,BD,08,5A,9D,30,04,E8,EO,08,DO,F5,A9,4A,8D,2A,D04B 
240 DATA 58,DO,12,A2,00,BD,00,5A,9D,30,04,E8,E0,08,D0,F5,D7A4 
245 DATA A9,30,8D,2A,58,60,AD,75,BE,C9,4F.F0,10,A9,0E,8D,DF28 
250 DATA 30,04,BD,32,04,A9,50,8D,31,04,8D,33,04,60,FF,00,E3FD 
255 DATA FF,00,FF,00,FF,00,FF,00,FF.OO,FF,00,FF,00,F,00,EBF5 
260 DATA 6C,FA,35,F5,A9,E9,00,00,86,FA,90,F5,21,EC,00,00,F429 
265 DATA 6C,30,04,6C,32,04,6C,34,04,6C,36,04,FF,OO.FF,00,F8B3 
270 DATA FF,00,F,00,FF,00,F,00,F,00,FF,00,F,00,F,00,OOAB 
275 DATA 20,A8,59,20,16,5A,A9,0A,8D,6A,02,A2,00,BD,22,57,05E0 
280 DATA 95,60,E8,EO,06,DO,F6,20,00,57,A2,00,BD,28,57,95,0053 
285 DATA 60,EB,EO,06,DO,F6,20,00,57,20,40,59,20,06,59,20,13E6 
290 DATA 73,6C,AD,DF,BF,C9,30,FO,FO,A9,01,4C,DO,5A,EA,EA,1DDD 
295 DATA A2,5O,8A,48,2O,EB,58,68,AA,CA,D0,F6,A2,00,BD,AO,26A5 
300 DATA 5A,OB,9D,82,BB,E8,28,D0,F5,A2,03,8E,76,02,8E,77,2E66 
305 DATA 02,AE,77,02,DO,FB,AE,10,04,9A,4C,30,5A,EA,EA,EA,364A 
310 DATA 09,03,44,45,53,4F,4C,45,2C,4C,41,20,50,41,52,54,3A22 
315 DATA 49,45,20,45,53,54,20,54,45,52,4D,49,4E,45,45,20,3E55 
320 DATA 21,21,21,00,FF,00,FF,00,FF,00,FF,00,F,00,F,00,44B2 
325 DATA 20,34,57,20,DO,6D,EE,D5,55,AE,DF,BF,C9,39,FO,03,4D13 
330 DATA EE,DF,BF,2O,BE,6C,A2,00,BD,52,5F,9D,D2,BF,E8,E0,56EF 
335 DATA 06,DO,F5,20,85,56,4C,62,5A,EA,EA.EA,EA,EA,EA,EA.6123 
340 DATA IA,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,6310 
345 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,6510 
350 DATA 20,20,20,07,20,20,20,20,10,05,20,20,20,20,20,20,66D9 
355 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,68D9 
360 DATA 20,20,20,3C,3D,3E,20,20,20,3C,3D,3E,20,20,20,20,6B87 
365 DATA 10,05,20,20,20,20,20,20,20,20,20,20,20,20,01,20,6D3D 
370 DATA 20,20,20,20,02,0C,5A,5B,5C,08,05,3C,3D,3E,20,20,6FE0 
375 DATA 20,3C,3D,3E, 20,20,20,20,10,05,20,20,20,20,20,20,720C 
380 DATA 20,20,20,20,20,20,01,41,42,43,44,45,03,51,52,53,7515 
385 DATA 20,20,05,3C,3D,3E,20,20,20,3C,3D,3E,20,20,20,20,77A8 
390 DATA 10,05,20,20,20,20,20,20,20,20,20,20,20,20,01,46,7984 
395 DATA 47,48,49,4A,02,54,55,56,20,20,05,3C,3D,3E,20,20,7CE3 
400 DATA 20,3C,3D,3E,20,20,20,20,10,05,20,20,20,20,20,20,7F0F 
405 DATA 20,20,20,20,20,20,01,4B,4C,4D,4E,4F,02,57,58,59,825B 
410 DATA 20,20,05,3C,3D,3E,20,20,20,3C,3D,3E,20,20,20,20,84EE 
415 DATA 10,05,20,20,20,20,7D,7D,3C,3D,3E,7D,7D,7D,7D,7D,B9A5 
420 DATA 7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,70,70,9175 
425 DATA 70,70,70,70,70,70,70,20,10,05,20,20,20,20,20,21,9506 
430 DATA 3C,30,3E,20,20,20,20,20,20,20,20,20,20,20,20,20,9820 
435 DATA 20,20,20,20,20,20,20,20,20,20,20,20,21,20,20,20,9A2E 
440 DATA 10,05,20,3B,20,20,20,21,3C,3D,3E,20,20,20,20,20,9C76 
445 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,9E76 
450 DATA 20,20,20,20,21,20,20,20,10,05,20,7E.3B,20,20,21,A0C6 
455 DATA 3C,3D,3E,20,20,20,20,20,20,20,20,20,20,20,20,20,A31D 
460 DATA 20,20,20,20,20,20,20,20,20,20,20,20,21,20,20,20,ASIE 
465 DATA 10,05,20,7E,7E,3B,20,21,3C,3D,3E,20,20,20,20,20,A822 
470 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,AA22 
475 DATA 20,20,20,20,21,20,20,20,10,05,20,7D,7D,7D,7D,7D,ADC9 
480 DATA 7D,7D,7D,7D,7D,7D,3C,3D,3E,7D,7D,7D,7D,7D,7D,7D,B4D9 
485 DATA 7D,7D,7D,7D,7D,7D,7D,3C,3D,3E,7D,70,20,20,20,20,BA75 
490 DATA 10,05,20,20,20,21,20,20,20,20,20,20,20,20,20,20,BC4B 
495 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,3C.BE67 
500 DATA 30,3E,21,20,20,20,20,20,10,05,20,20,20,21,20,20,C079 
505 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,C279 
510 DATA 20,20,20,20,20,20,20,3C,3D,3E,21,20,20,20,3A,20,C4EB 



515 DATA 10,05,20,20,20,21,20,20,20,20,20,20,20,20,20,20,C6C1 
520 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,3C.C8DD 
525 DATA 3D,3E,21,20,20,3A,5E,20,10,05,20,20,20,21,20,20,CB47 
530 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,CD47 
535 DATA 20,20,20,20,20,20,20,3C,3D,3E,21,20,3A,5E,5E,20,D035 
540 DATA 10,05,20,20,20,20,7D,7D,3C,30,3E,7D,7D,7D,7D,7D,D4EC 
545 DATA 7D,7D,3C,3D,3E,7D,7D,7D,70,7D,70,7D,7D,7D,7D,7D,DBFC 
550 DATA 7D,7D,7D,7D,70,7D,7D,20,10,05,20,20,20,20,20,21,E05D 
555 DATA 3C,3D,3E,20,20,20,20,20,20,20,3C,3D,3E,20,20,20,E30B 
560 DATA 20,20,20,20,20,20,20,20,20,20,20,20,21,20,20,20,E50C 
565 DATA 10,05,20,3B,20,20,20,21,3C,30,3E,20,20,20,20,20.E754 
570 DATA 20,20,3C,3D,3E,20,20,20,20,20,20,20,20,20,20,20,E9AB 
575 DATA 20,20,20,20,21,20,20,20,10,05,20,7E,3B,20,20,21,EBFB 
580 DATA 3C,3D,3E,20,20,20,20,20,20,20,3C,3D,3E,20,20,20,EEA9 
585 DATA 20,20,20,20,20,20,20,20,20,20,20,20,21,20,20,20,FOAA 
590 DATA 1Q,05,20,7E,7E,3B,20,21,3C,3D,3E,20,20,20,20,20,F3AE 
595 DATA 20,20,3C, 3D, 3E, 20,20,20,20,20,20,20,2Q,20,20,20,F605 
600 DATA 20,20,20,20,21,20,20,20,20,10,05,7D,7D,7D,7D,7D.F9AC 
605 DATA 7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,017C 
610 DATA 3C,3D,3E,7D,7D,7D,7D,3C,3D,3E,7D,7D,20,20,20,20,0658 
615 DATA 10,05,20,20,20,20,20,20,20,20,20,20,20,20,20,20,0820 
620 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,3C.0A49 
625 DATA 3D,3E,21,20,20,20,20,20,10,05,20,20,20,F,FO,Fl,OECA 
630 DATA 20,62,63,64,20,20,20,20,20,20,20,20,20,20,20,20,1193 
635 DATA 20,20,20,20,20,20,20,3C,3D,3E,21,20,20,20,3A,20,1405 
640 DATA 10,05,20,20,20,F2,F3,F4,20,65,66,67,20,20,20,20,1925 
645 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,3C, 1B41 
650 DATA 3D,3E,21,20,20,3A,5E,20,10,05,20,20,20,F5,F6,F7,202C 
655 DATA 39,68,69,6A,20,20,20,20,20,20,20,20,20,20,20,20,2320 
660 DATA 20,20,20,20,20,20,20,3C,3D,3E,21,20,3A,5E,5E,20,260E 
665 DATA 10,05,20,20..7D,7D,7D,70,7D, 7D,70,70,7D, 7D, 7D,7D,2C3F 
670 DATA 7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,70,340F 
675 DATA 7D,7D,7D,7D,7D,7D,7D,20,09,01,09,01,53,43,4F,52,38E5 
680 DATA 45,3A,20,30,30,30,30,30,30,30,02,42,4F,4E,55,53,3C5D 
685 DATA 3A,20,31,30,30,30,30,30,06,56,49,45,53,3A,20,35,3FA4 
690 DATA DF,63,3F,64,9F,64,F,64,F,00,F,00,F,00,F,00,47EB 
695 DATA F,00,F,00,F,00,F,00,F,00,F,00,F,00,F,00,4FE3 
700 DATA F,00,F,00,F,00,FF,00,FF,00,FF,00,F,00,F,00,57DB 
705 DATA FF,00,F,00,F,00,F,00,F,00,F,00,F,00,F,00,5FD3 
710 DATA FF,00,F,00,FF,00,F,00,F,00,FF,00,FF,00,F,0O,67CB 
715 DATA F,00,F,00,F,00,F,00,F,00,F,00,F,00,F,00,6FC3 
720 DATA FF, 00,F,00,F,00,FF,00,FF,00,F,00,F,00,F,00,77BB 
725 DATA F,00,F,00,F,00,F,00,F,00,F,00,F,00,FF,00,7FB3 
730 DATA F,00,FF,00,F,00,F,00,F,00,F,00,F,00,F,00,87AB 
735 DATA F,00,F,00,F,00,F,00,F,00,F,00,F,00,F,00,BFA3 
740 DATA 01,03,01,01,01,01,00,00,3C,3Ç,3C,34,3E,38,3C,38,917F 
745 DATA 00, 00,00, 00,00,00,X,00,03,07,00,19,31,39,00,01,9227 
750 DATA 3E,3F,3D,3C,3C,3C,3F,3F,00,00,24,38,10,00,20,20,94BF 
755 DATA 03,03,06,06,OC,OC,18,1E,01,01,01,00,00,00,00,00,9522 
760 DATA 20,20,38,00,00,00,00,00,00,01,00,00,00,00,00,00,9598 
765 DATA 3E,3F,3E,3A,3F,3C,1E,1C,00,00,00,00,00,00,00,00,9745 
770 DATA 01,03,02,03,01,00,00,00,3F,3F,3F,3E,3E,3E,3E,3E,9942 
775 DATA 00,00,20,28,30,00,00,00,00,01,03,03,06,OC,OC,0F.99EE 
780 DATA 36,26,03,03,03,01,01,01,00,00,00,00,00,20,20,38,9ACE 
785 DATA 00,00,00,00,00,00,00,00,1F,3F,1F,!D,1F,1E,0F,0E,9BC2 

790 data 00 , 20 , 00 , 00 , 20 ,oo,oo,oo,oo,oo,oo,oo,oo,oo,oo,of,9cii 
795 DATA 1F,3F,3F.3F,3F,1F,1F,3F,20,20,20,20,20,38,00,00,9E8I 


il 







BOO DATA OF,08,08,00,00,00,00,00,3F,03,03,03,03,03,03,03,9EF4 
805 DATA X,X,X,X,X,X,X,30,X,X,X,X,X,X,X,X,9F24 
810 DATA OF,1F,OF,OE,OF,OF,07,07,20,30,20,20,30,00,20,00,A07B 
815 DATA 00,00,00,00,0Q,00,00,00,0F,0F,1F,1F,OF,OF,OF,OF,Al 13 
820 DATA 20,20,20,20,38,20,20,20,00,00,00,00,00,00,00,00,A22Ï 
825 DATA OF,07,03,03,07,0F,09,09,20,30,38,30,20,20,20,38,A3BF 
830 DATA 00,00,00,00,00,00,00,00,07,0F,07,07,07,07,03,03,A3F7 
835 DATA 30,30,30,10,38,20,30,20,00,00,00,00,00,00,00,00,A547 
840 DATA 07,OF,CF,OF,OF,07,07,07,30,30,30,34,38,30,30,30,A72B 
845 DATA 00,00,00,00,00,00,00,00,07,01,01,01,01,01,01,01^739 
850 DATA 30,30,30,30,30,30,30,3C,00,00,00,X,00,00,00,00,A8C5 
855 DATA 03,07,03,03,03,03,01,01,38,3C,38,28,3C,30,38,30,AA85 
860 DATA 00,00,00,00,00,00,00,00,03,07,QF,OB,OF,07,03,03,AAC5 
865 DATA 38,38,3C,3C,3F,38,38,38,00,00,00,00,00,00,00,00,AC94 
870 DATA 03,03,03,03,06,06,00,OF,38,18,1C,OC,OC,OC,OF,00,AD66 
875 DATA X,X,X,X,X,X,X,X,X,IF,X,0B,1F,07,X,07,ADEA 
880 DATA 20,30,20,20,20,20,00,00,00,00,09,07,02,X,01,01,AECE 
885 DATA 1F, 3F,2F,OF,OF,OF,3F,3F,30,36,2C,26,23,27,2C,20,B156 
890 DATA 01,01,07,X,00,X,X,X,20,20,20,X,X,X,X,00,B1BF 
895 DATA 30,30,18,18,OC,OC,06,1E,00,X,X,X,X,X,X,00,B28B 
9X DATA 1F,3F,1F,17,3F,OF,1E,OE,X,20,X,X,X,X,X,00,B3B9 
905 DATA X,X,01,05,03,X,X,X,3F,3F,3F, 1F, 1F, 1F, 1F, 1F,B51A 
910 DATA 20,30,10,30,20,X,X,X,X,X,X,X,X,01,01,07,B5D3 
915 DATA IB,19,30,30,30,20,20,20,00,20,30,30,18,OC,OC, 3C,B7E3 
920 DATA X,01,X,X,01,X f X,X,3E,3F,3E,2E,3E,lE,3C,lC,B982 
925 DATA X,X,X,X,X,X,X,X,01,01,01,01,01,07,X,X,B98E 
930 DATA 3E,3F,3F,3F,3F,3E,3E,3F,00,X,X,X,X,X,X,3C,BBBF 
935 DATA X,X,X,X,X,X,X,03,3F,30,30,30,30,30,30,30,BX1 
940 DATA 3C,04,04,X,X,X,X,X,01,03,01,01,03,X,01,X,BD9F 
945 DATA 3C,3E,3C, 1C,3C,3C,38,38,X,X,X,X,X,X,X,X,BF59 
950 DATA 01,01,01,01,07,01,01,01,3C,3C,3E,3E,3C,3C,3C,3C,C14B 
955 DATA X,X,X,X,00,X,X,X,01,03,07,03,01,01,01,07,C163 
960 DATA 3C,38,30,30,38,3C,24,24,X,X,X,X,X,X,X,X,C2F3 
965 DATA 03,07,03,02,07,01,03,01,38,3C,38,38,38,38,30,30,C4C2 
970 DATA X,X,X,X,00,X,X,X,03,03,03,OB,07,03,03,03,C4E6 
975 DATA 38,3C,3C,3C,3C,38,38,38,M,X,X,X,X,X,X,X,C6B6 
980 DATA 03,03,03,03,03,03,03,0F,38,20,20,20,20,20,20,20,C7F2 
985 DATA X,X,X,X,X,X,X,X,07,OF,07,05,OF,03,07,03,C830 
990 DATA 30,38,30,30,30,30,20,20,X,X,X,X,X,X,X,X,C998 
995 DATA 07,07,OF,OF,3F,07,07,07,30,38,3C,34,3C,38,30,30,CBC4 
1X0 DATA X,X,X,X,X,X,X,X,O7,O6,OE,OC,OC,0C,3C,X,CC3F 
1005 DATA 30,30,30,30,18,18,0C,3C,X,X,X,X,X,X,X,X,CD77 
1010 DATA FF,5F,47,60,8F,60,D7,60,1F,61,67,61,17,63,CF,62,D495 
1015 DATA 87,62,3F,62,F7,61,AF i 61,3F,35,3F,35,3F,35,2A,30,DA3D 
1020 DATA 3F,35,2E,35,3F,15,2A,15,3F,35,2F,35,3F,15,2B,15,DD13 
1025 DATA 27,28,2E,28,28,28,28,28, OA, 15,X,2B,2A,2B,2A,3B,DF5C 
1030 DATA 2B,15,03,29,09,09,09,2D,22,35,2A,3F,2D,32,2D,3F,E19B 
1035 DATA X, 15,2A,3F,2D, 12,2D,3F,01,15,2B,3F,2D, 13,2D,3F,E3F0 
1040 DATA 2F,38,28,38,2F,38,28,38,3F,X,X,X,3F,X,X,X,E5FC 
1045 DATA 3F,05,07,05,3F,05,07,05,3F,21,12,OC,OC,12,21,3F,E798 
1X0 DATA AF,38,2B,38,2F,30,28,39,3F,X,X,X,3F,X,3F,3F,EAA3 
1055 DATA 3F,X,07,X,3F,X,07,25,2F,3A,2A,3A,2F,3A,2B,39,ECFD 
1060 DATA 3F,3F,3F,IE,3F,OC,3F,3F,3F,15,17,15,3F,15,37,25,EFD1 
1065 DATA 2F,38,28,38,2F,38,28,38,3F,3F,3F,3F,3F,33,33,33,F333 
1070 DATA 3F,X,07,X,3F,X,07,X,2F,38,28,39,2F,38,28,38,F562 
1075 DATA 3F,33,33,33,3F,X,X,X,3F,X,07,25,3F,X,07,X,F739 
10X DATA EF,38,28,38,2F,39,28,38,3F,X,X,X,3F,3F,3F,3F,FAC3 
10X DATA 3F,X,07,X,3F,35,17,15,2F,3A,2A,3E,2F,3F,2A,38,FX4 
1090 DATA 3F, 1E, 1E,OC,3F,3F,3F,3F,3F, 15,17,15,3F,25,07,X,FFC7 
1095 DATA 2F,38,28,38,2F,38,28,38,3F,3F,3F,33,3F.33,33,33,0310 
11X DATA 3F,X,07,X,3F,25,07,25,2F,38,28,39,2F,38,28,38,X8C 
11X DATA 3F,30,30,30,3F,X,X,X,3F,X,07,X,3F,X,07,X,073A 
1110 DATA AF,38,28,39,2F,3A,2A,3A,3F,X,3F,3F,3F,3F,3F,1E,0AE7 
1115 DATA 3F,X,07,25,3F,15,17,15,2F,3A,2B,39,2F,38,28,38,0D6B 
1120 DATA 3F,OC,3F,3F,3F,3F,3F,3F,3F, 15,37,25,3F,X,07,X, 1030 


1125 DATA 2F,38,28,38,2F,38,28,39,3F,33,33,33,3F,33,33,33,136F 
1130 DATA 3F,X,07,X,3F,X,07,25,2F,38,28,38,2F,38,28,38,15BD 
1135 DATA 3F,X,X,X,3F,X,00,X,3F,X,07,X,3F,X,07.X,16DB 
1140 DATA AF,3B,2A,3A,2F,3A,2A,3A,3F,3F,3F,3F,3F,1E,1E,0C,1A79 
1145 DATA 3F,25,07,X,3F,15,17,10,2F,39,28,38,2F,38,28,38,11X30 
1150 DATA 3F,3F,3F,3F,3F,3F,3F,33,3F,3D, 17,X,3F,X,07,X, 1FD4 
1155 DATA 2F,39,28,39,2F,38,28,38,3F,33,33,33,3F,03,03,03,2284 
1160 DATA 3F,X,07,X,3F,X,07,25,2F,38,28,38,2F,38,28,38,24D2 
1165 DATA 3F,X,X,X,3F,X,X,X,3F,X,07,X,3F,X,07,X,25F0 
1170 DATA 03,0E,18,37,21,22,27,2O,3F,X,X,2A,0A,OA,2E,X,2785 
1175 DATA X,3C,02,39,11,12,12,04,1C,07,X,0F, 10,0F,X,X, 2886 
11X DATA Ol,3F,d2,04,24,04,X,X,3C,X,X,OF,03,03,03,03,295B 
11X DATA X,X,04,1D,37,3F,3F,1E, 10,20,03,1E,30,31,3F, 1F,2B6C 
1190 DATA 03,03,07,2F,3F,2E,3E,2C,15,2A,15,2A,15,2A,15,2A,2D7B 
1195 DATA X,X,X, X,X,00,X,01,01,02,07,OB,09,OF,37,36,2E16 
12X DATA 12,2D,3F,OC,3F,33,3F,X,20,10,38,34,24,3C,3B,1B, 30A3 
12 X DATA X,X,X,X,X,X,X,20,07,X,X,X,07,03,01,X,3102 
1210 DATA 35,37,18,2F,33,3F,3F,10,3F,3F,X,3F,lP,2D,2D, 1E,33C9 
1215 DATA 2B,3B,06,3D,33,3F,3F,02,38,3C,3E,3E,3C,38,30,X,36B9 
1220 DATA X,X,X,X,X,X,X,X,X,X,X,œ,X,X,X,X.36B9 
1225 DATA 14,14,14,X,X,00,00,X,01,03,07,06,06,07,03,01,3717 
1230 DATA 38,3C,X,06,06,X,3C,38,X,1F,36,39,39,36,1F,X,3961 
1235 DATA X,20,30,30,30,30,20,X,08,08,08,X,X,X,X,X,3A79 
1240 DATA X,X,01,X,1F,3F,X,3F,1F,3F,1F,1F,3F,3F,3F,3F,3CBD 
1245 DATA X,20,20,30,30,38,3E,3F,X,X,X,X,X,X,X,X,3E12 
1250 DATA X,X,X,X,X,X,X,00,X,00,X,00,00,01,03,03,3E19 



1255 DATA OF,1F,3F,3F,3F,3E,3D,3B,1F,1F,1F,1F,1F,3F,3F,3F,4112 
1260 DATA 20,20,30,30,30,38,3C,3C,X,X,X,M,X,X,X,X,4292 
1265 DATA 07,OF,3F,3E,3C,30,23,07,3F,3F,1F,1D,1F,1F,3F,3E,4530 
1270 DATA 3F,3F,3F,20,X,00,00,X,3E,3E,3F,3F,07,07,3F, 3F,4793 
1275 DATA X,X,X,20,30,38,38,30,3E,02,04,X,10,10,10,X,48FF 
12X DATA 1C,22,22,1C,22,22,1C,X,X,X,X,X,X,X,X,X,49DB 
12X DATA 01,02,01,02,X,OA, 15,2A,20,10,20,10,28,14,2A, 15,4B0A 
1290 DATA 2F,38,28,38,2F,38,28,38,3F,X,X,X,3F,X,X,X,4D16 
1295 DATA 3F,X,07,X,3F,X,07,X,1C,22,04,M,X,X,X,X,4E10 
13X DATA 1C,22,2A,2E,2C,20,1E,X,X,X,X,X,X,X,X,01,4F11 
13X DATA 01,02,07,OB,09,0F,37,36,12,2D,3F,OC,3F,33,3F,X,5X6 
1310 DATA 20,10,38,34,24,3C,3B,1B,X,X,X,X,X,X,X,20,5258 
1315 DATA 07,X,X,X,07,03,01,X,35,37,18,2F,33,3F,3F, 10,540B 
1320 DATA 3F,3F,X,3F,1E,2D,2D,1E,2B,3B,06,3D,33,3F,3F,02,56BA 
1325 DATA 38,3C,3E,3E,3C,38,30,X,X,01,01,X,X,X,03,07,585A 
1330 DATA 3F,3F,3F,3F,3F,3E,3E,3C,3F,3F,3F,21,X,X,X,X,5B2B 
1335 DATA 3F,3F,3F,3F,3F,1F,1F,X,X,20,20,X,X,X,30,38,5XB 
1340 DATA 3C,22,22,3C,20,20,20,X,01,X,01,X,X,X,X,X,5E79 
1345 DATA 3F,2F,3F,2F,X,3E,OC,1F,X,20,20,20,30,34,1B,04,60AD 
1350 DATA X,01,02,01,X,X,01,01,1F,3F,3F,3F,3F,3F,3F,3F,628B 
1355 DATA X, 20,10,20, X, X, X, 20,01,01,01,01,01, X, 01,06,6307 
1360 DATA 3F,3F, 3F,3F,3F,33,33,12,20,20,20,20,20,X,20,38,65B2 
1365 DATA 2B,3A,2B,2A,03,X,X,X, 13,12,12,13,12, IA. 02,X,66E7 
1370 DATA 24,24,24,04,04,X,04,04,3C,04,04,04,04,04,3C,X,67EF 
1375 DATA 15,2A,15.2A,15,2A,15,2A,X,1F,3A,35,3A,35,1F,X,6A25 


12 







395 DATA 00,00,32,32,32,IC,08,00,00,00,32,32,32,3A,14,00,6A47 
A00 DATA 00,00,32,10,08,10,32,00,00,00,32,32,32,1E,02,1C,6BBD 
405 DATA 00,00,3E,0C, IB,30,3E,00,OE,18,18,30,18,18,OE,00,6D39 


10 A=#68CK3:F=#7738:L=100:REPEAT:FOR A=A TO A+15:READ Ct 
20 K=VAL( 1 * *+C$):S=S+K+65536* t S+K>65535)! IF A<=F THEN POKE A,K 
30 NEXT:READ D»:IF S=VALC# , +D$) THEN L=L+5:UNTIL A>F:END 
40 PING:PRINT’Erreur ligne’;L 

100 DATA 3F,15,2A,15,2A,15,2A,3F,3C,3E,2B,17,2B,17,3E,30,02B3 
105 DATA 01,03,01,01,01,01,00,00,30,3E,30,34,3E,38,30,38,048F 
110 DATA 00,00,00,00,00,00,00,00,03,07,00,19,31,39,00,01,0537 
115 DATA 3E,3F,3D,3C,3C,3C,3F,3F,00,00,24,38,10,00,20,20,07CF 
120 DATA 03,03,06,06,OC,OC,18,1E,01,01,01,00,00,00,00,00,0832 
125 DATA 20,20,38,00,00,00,00,00,20,20,22,24,38,24,22,00,09AE 
130 DATA 18,08,08,DB,08,08,1C,00,00,00,36,2A,2A,2A,22,00,OAEO 
135 DATA 00,00,3C,22,22,22,22,00,3F,35,3F,35,3F,35,2A,30,0D5A 
140 DATA 3F,35,2E,35,3F,15,2A,15,3F,35,2F,35,3F,15,28,15,1030 
145 DATA 27,28,2E,28,28,28,28,28,OA,15,00,2B,2A,2B,2A,3B,1279 
150 DATA 2B,15,03,29,09,09,09,2D,22,35,2A,3F,2D,32,2D,3F, 14B8 
155 DATA 00,15,2A,3F,2D,12,2D,3F,01,15,2B,3F,2D, 13,2D,3F, 170D 
160 DATA 00,00,22,14,08,14,22,00,00,00,22,22,22,1E,02,IC,1823 
165 DATA 00,00,3E,04,08,10,3E,00,OE,18,18,30,18,18,OE,00,1967 
170 DATA 00,IB,00,36,00,IB,00,36,3F,21,12,OC,OC,12,21,3F,1B05 
175 DATA 2A,15,2A,15,2A,15,2A,15,3F,3F,3F,3F,3F,3F,3F,3F,1DF9 
180 DATA 00,00,00,00,00,00,00,00,18,18,18,18,18,00,18,00,1E89 
185 DATA 36,36,12,00,00,00,00,00,14,14,3E,14,3E,14,14,00,1FE7 
190 DATA 08,1E,28,IC,OA,3C,08,00,32,36,04,08,10,36,26,00,217F 
195 DATA 18,34,34,18,3A,34,IA,00,18,18,08,00,00,00,00,00,2207 
200 DATA 18,30,30,30,30,30,18,00,OC,06,06,06,06,06,OC,00,242D 
205 DATA 2A,3A,1C,08,1C,3A,2A,00,00,18,18,3C,18,18,00,00,2501 
210 DATA 00,00,00,00,00,18,18,10,00,00,00,3C,00,00,00,00,2640 
215 DATA 00,00,00,00,OC,OC,00,00,00,02,06,OC,18,30,00,00,26C1 
220 DATA 1C,32,36,3A,32,32,1C,00,08,18,38,18,18,18,3C,0G,28DB 
225 DATA IC,32,02,OC,18,30,3E,00,3E,22,04,0C,02,32,1C,00,2A70 
230 DATA 04,OC,1C,2C,3E,OC,OC,00,3E,30,3C,02,02,32,1C,00,2C27 
235 DATA OC, 18,30,3C,32,32,1C,00,3E,06,PC, 18^,30,30,00,2E2F 
240 DATA 1C,32,32,1C,32,32,1C,00,IC,32,32,1E,06,0C,18,00,3013 
245 DATA 00,18,18,00,18,18,00,00,00,IB,18,00,00,18,08,10,3003 
250 DATA 04,08,10,30,10,08,04,00,00,00,3C,00,3C,00,00,00,31B3 
255 DATA 10,08,04,06,04,08,10,00,IC,32,06,OC,18,00,18,00,3281 
260 DATA IC,22,2A,2E,2C,20,1E,00,1C,32,32,32,3E,32,32,00,3405 
265 DATA 3C,32,32,3C,32,32,3C,00,IC,32,30,30,30,32,1C,00,377D 
270 DATA 3C,32,32,32,32,32,3C,00,3E,30,30,3C,30,30,3E,00,3A67 
275 DATA 3E,30,30,3C,30,30,30,00,1E, 30,30,30,32,32,1E,00,3001 
280 DATA 32,32,32,3E,32,32,32,00,1E,0C,OC,OC,OC,OC,1E,00,3EE3 
285 DATA 06,06,06,06,06,36, IC,00,32,34,38,30,38,34,32,00,40BF 
290 DATA 30,30,30,30,30,30,3E,00,22,3E,3A,32,32,32,32,00,437F 
295 DATA 32,32,32,3A,36,32,32,00,IC,32,32,32,32,32,IC,00,461B 
300 DATA 3C,32,32,3C,30,30,30,00,1C,32,32,32,3A,34,1 A,00,48C1 
305 DATA 3C,32,32,3C,38,34,32,00,1C,32,30,1C,02,32,1C,00,4B25 
310 DATA 1E,OC,OC,OC,OC,OC,OC,00,32,32,32,32,32,32,IC,00,4CD3 
315 DATA 32,32,32,32,32, IC,08,00,32,32,32,32,3A,36,22,00,4F4B 
320 DATA 22,32,IC,08,IC,32,22,00,32,32,IC,18,18,30,30,00,5143 
325 DATA 3E,06,06,OC,18,30,3E,00,1E, 18,18,18,18,18,1E,00,5203 
330 DATA 00,30,18,OC,06,02,00,00,3C,OC,OC,OC,OC,OC,3C,00,53E3 
335 DATA 00,1C,2A,08,08,08,08,00,0E,18,18,18,3C,18,3E,00,5539 
340 DATA OC,12,2D,29,29,20,12,OC,00,00,IC,02,1E,32,1E,00,56AD 
345 DATA 30,30,3C,32,32,32,3C,00,00,00,1E,30,30,30,1E,00,5BE7 
350 DATA 02,02,1E,32,32,32,1E,00,00,00,IC,32,3E,30,1E,00,5A97 
355 DATA OC,IA,1B,3C,18,18,18,00,00,00,1C,32,32,1E,02,1C,5C15 
360 DATA 30,30,3C,32,32,32,32,00,18,00,18,18,18,18,3C,00,5E2D 
365 DATA OC,00,OC,04,04,04,34,18,30,30,32,34,38,34,32,00,6001 
370 DATA 18,18,18,18,18,18,3C,00,00,00,14,3A,3A,32,32,00,61B9 
375 DATA 00,00,3C,32,32,32,32,00,00,00,1C,32,32,32,1C,00,638B 
380 DATA 00,00,3C,32,32,3C,30,30,00,00,1E,32,32,1E,02,02,656B 
385 DATA 00,00,2E,30,30,30,30,00,00,00,1E,30,IC,02,3C,00,6701 
390 DATA 18,18,3C,18,18,1A,0C,00,00,00,32,32,32,36,1A,00,68A9 


410 DATA 18,18,18,18,18,18,18,00,38,OC,OC,06,OC,OC,38,00,6E87 
415 DATA 2A,15,2A,15,2A,15,2A,15,3F,3F,3F,3F,3F,3F,3F,3F,717B 
420 DATA AD,20,04,OA,OA,OA,OA,AA,BD,00,72,BD,3F,56,BD,01,762D 
425 DATA 72,8D,40,56,BD,02,72,BD,El,57,BD,03,72,8D,E3,57,7DB1 
430 DATA BD,04,72,BD,A4,55,BD,05,72,BD,A5,55,BD,06,72,8D,B4E7 
435 DATA A8,55,BD,07,72,8D,BO,55,BD,08,72,8D,BA,55,BD,09,8C45 
440 DATA 72,8D,Cl,55,BD,OA,72,8D,2E,57,BD,OB,72,8D,2F,57,92F2 
445 DATA 80,00,72,80,30,57,80,00,72,80,31,57,80,08,72,80,9950 
450 DATA 14,56,BD,OF,72,80,15,56,60,00,FF,00,FF,00,FF,00,9F59 
455 DATA FF,00,FF,A2,00,BD,38,5F,9D,B8,BF,E8,E0,28,D0,F5,A916 
460 DATA 4C,85,56,00,FF,00,FF,00,FF,00,FF,00,F,00,FF,00,B037 
465 DATA A2,06,BD,C3,BF,C9,39,FO,04,FE,C3,BF,60,A9,30,9D,B96A 
470 DATA C3,BF,CA,4C,92,6C,A2,06,BD,D1,BF,C9,30,FO,04,DE,C2C0 
475 DATA DI,BF,60,A9,39,9D,DI,BF,CA,DO,ED,68,68,60,20,90,CC26 
480 DATA 6C,20,A6,6C,A2,80,CA,DO,FD,4C,BE,6C,FF,00,FF,00,D4F1 
485 DATA AE, 10,04,9A,A9,56,48, A9,98,48,60,00,F,00,F,00,DB7E 
490 DATA 07,18,10,27,25,27,24,14,3F,00,00,10,15,15,15,1D,DD10 
495 DATA 3F,00,00,15,15,15,15,32,3F,00,00,10,10,18,11,1D,DE87 
500 DATA 38,00,02,30,10,27,00,30,3F,00,00,15,15,15,15,09,E001 
505 DATA 3F,00,00,35,15,15,15,37,30,OE,01,1D,11,1D,05,1D,E197 
510 DATA 10,10,13,0A,0B,0A,0A,08,00,00,2E,2A,2E,28,28,00,E2D! 
515 DATA 00,00,3B,2A,3B,22,23,00,00,00,28,08,08,08,2E,00,E424 
520 DATA 00,00,38,22,33,23,3A,00,00,00,20,20,20,00,20,00,E591 
525 DATA 00,00,11,11,11,11,10,00,01,01,33,12,36,14,14,04,E69B 
530 DATA 04,05,05,10,14,35,24,23,00,37,05,37,14,34,00,3F,E850 
535 DATA 00,IC,14,IC,14,14,01,3E,00,01,01,01,10,31,0C,07,E95A 
540 DATA 00,35,05,35,15,32,00,3F,00,1D, 14,IC,10,10,00,3F,EAFB 
545 DATA 31,OA,10,21,00,21,00,3F,24,14,24,04,OC,08,18,20,EC73 
550 DATA EO,6C,9F,6D,08,B5,00,00,A2,00,BD,AO,6D,95,60,E8,F3D1 
555 DATA EO,06,DO,F6,20,00,57,60,40,2E,77,32,80,BB,00,OO.F9A6 
560 DATA A2,00,BD,B8,6D,95,60,E8,EO,06,DO,F6,20,00,57,60,018A 
565 DATA 20,A8,6D,20,CO,6D,60,00,F,00,F,00,F,00,F,00,0868 
570 DATA F,00,F,00,FF,00,F,00,FF,00,FF,00,FF,00,FF,00,1060 
575 DATA F,00,F,00,F,00,F,00,F,00,FF,00,F,00,F, 00,1858 
580 DATA FF,00,F,00,F,00,FF,00,FF,00,FF,00,F,00,F,00,2050 
585 DATA F,00,F,00,F,00,F,00,FF,00,F,00,F,00,F,00,2848 
590 DATA F,00,F,00,FF,00,FF,00,F,00,FF,00,FF,00,FF,00,3040 
595 DATA F,00,F,00,F,00,F,00,F,00,F,00,F,00,F,00,3838 
600 DATA FF,00,F,00,F,00,F,00,F,00,F,00,F,00,F,00,4030 
605 DATA F,00,F,00,F,00,F,00,F,00,F,00,F,00,FF,00,4828 
610 DATA FF,00,F,00,FF,00,FF,00,FF,00,FF,00,F,00,F,00,5020 
615 DATA F,00,F,00,F,00,FF,00,F,00,F,00,F,00,F,00,5818 
620 DATA FF,00,FF,00,F,00,FF,00,F,00,FF,00,F,00,F,00,6010 
625 DATA F,00,F,00,F,00,F,00,FF,00,F,00,F,00,F,00,6808 
630 DATA F,00,F,00,FF,00,FF,00,F,00,FF,00,F,00,F,00,7000 
635 DATA F,00,F,00,F, 00,F,00,F,00,F,00,F,00,F,00,77F8 
640 DATA FF,00,F,00,F,00,F,00,FF,00,FF,00,F,00,F,00,7F0 
645 DATA FF,00,F,00,F,00,F,00,F,00,F,00,F,00,F,00,87E8 
650 DATA FF,00,F,00,FF,00,FF,00,F,00,F,00,F,00,F,00,8FE0 
655 DATA F,00,F,00,FF,00,F,00,F,00,F,00,F,00,F, 00,97D8 
660 DATA FF,00,F,00,F,00,FF,00,F,00,FF,00,F,00,F,00,9FD0 
665 DATA F,00,FF,00,F,00,F,00,FF,00,F,00,F,00,F,00,A7C8 
670 DATA FF, 00, FF, 00, F, 00, F, 00, F, 00, F, 00, F, 00, F, 00, AF CO 
675 DATA F,00,F,00,F,00,F,00,FF,00,F,00,F,00,F,00,B7B8 
680 DATA FF,00,F,00,FF,00,F,00,FF,00,FF,00,FF,00,F,00,BFBO 
685 DATA F,00,F,00,FF,00,F,00,F,00,FF,00,FF,00,F,00,C7A8 
690 DATA F,00,F,00,FF,00,F,00,F,00,F,00,F,00,FF,00,CFAO 
695 DATA F,00,F,00,F,00,F,00,F,00,FF,00,F,00,F,00,D798 
700 DATA FF,00,F,00,F,00,F,00,FF,00,FF,00,FF,00,FF,00,DF90 
705 DATA F,00,F,00,F,00,F,00,F,00,F,00,F,00,F,00,E788 
710 DATA FF,00,FF,00,F,00,F,00,F,00,FF,00,F,00,F,00,F80 
715 DATA F,00,F,00,F,00,F,00,F,00,F,00,F,00,F,00,F778 
720 DATA F, 00, F, 00, F, 00, F, 00, FF, 00, FF, 00, F, 00, F, 00, FF70 
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725 DATA FF,00,F,00,FF,OO,F,00,F,00,F,00,FF,00,F,00,0768 
730 DATA FF,00,FF,00,FF,00,FF,00,FF,CK),FF,00,FF,00,FF,00,0F60 
735 DATA FF,00,F,00,FF,00,FF,00,FF,00,FF,00,FF,00,FF,00,1758 
740 DATA CV,BD,02,00,FF,20,20,20,8F,FE,01,bl,FF,20,20,3E,1D0B 
745 DATA 56,BF,F,OI,FF,3C,3D,3E,A4,BB,FF,01,F,20,20,20,2494 
750 DATA 40,BF,FF,01,FF,20,20,3E,40,BF,FF,01,FF,20,20,3E,2B8C 
755 DATA 43,BF,F,01,F,20,3C,3E,50,BF,F,01,F,20,20,3E,32B3 
760 DATA 23,BD,F,01,F,20,62,3E,51,BE,FF,01,F,20,20,20,39C0 
765 DATA OB,BD,FF,01,FF,3C,3D,3E,B7,BD,FF,01,FF,20,20,20,Al 11 
770 DATA 92,BD,FF,01,F,20,20,20,87, BC,F,01,F,20,20,20,4861 
775 DATA 80,BC,FF,01,FF,20,20,20,C3,BC.FF,01 ,F,20,20,20,4FDA 
780 DATA FF,00,FF,01,F,00,F,00,FF,00,F,01,F,OO,F,00,57D4 
785 DATA F,00,FF,01,FF,00,FF,00,FF,00,F,01,F,00,F,00,5FŒ 
790 DATA FF,00,FF,01,FF,00,F,00,FF,00,F,01,F,00,F,00,67C8 
795 DATA F,00,F,01,FF,00,F,00,F,00,F,01,FF,00,F,00,6FC2 
800 DATA FF,00,F,01,F,00,F,00,FF,00,FF,01,FF,00,F,00,77BC 
805 DATA F,00,F,01,FF,00,F,00,F,00,F,01,F,00,F,00,7FB6 
810 DATA FF,OO,F,01,F,00,FF,00,FF,00,F,01,F,00,F,00,87B0 
815 DATA F,00,F,01,F,00,F,00,F,00,F,01,F,00,F,00,BFAA 
820 DATA FF,OO,FF,00,F,00,F,00,FF,00,F,OO,FF,00,FF,00,97A2 
825 DATA F,00,F,00,FF,00,F,00,F,00,F,00,F,00,F,00,9F9A 
830 DATA FF,00,F,00,F,00,FF,00,F,00,F,00,F,00,F,00,A792 
835 DATA F,00,F,00,F,00,F,00,F,00,FF,00,FF,00,F,00,AF8A 
840 DATA FF,00,F,00,F,00,FF,00,FF,00,F,OO,F,00,FF,00,B7B2 
845 DATA F,00,F,00,F,00,F,00,FF,00,F,00,F,00,F,00,BF7A 
850 DATA FF,00,FF,00,F,00,FF,00,FF,00,FF,OO,F,00,F,00,C772 
855 DATA F,00,FF,00,F,00,F,00,F,00,F,00,F,00,F,00,CF6A 
860 DATA FF,00,F,00,FF,00,FF,00,FF,00,F,00,FF,00,F,00,0762 


1060 DATA FC,20,20,20,20,20,FC,FC,20,20,20,20,20,20,20,20,D596 
1065 DATA 20,20,20,21,3G,30,3E, 21,02,FC,FC,FC, 3B,20,20,20,DA80 
1070 DATA 20,20,20,20,20,20,FC,FC,FC,20,20,20,20,3A,FC,FC,E0E6 
1075 DATA 03,51,52,53,20,01,41,42,43,44,45,02,3C,30,3E,21,E429 
1080 DATA 02,FC,FC,FC,7E,3B,20,20,20,20,20,20,20,20,20,20,E918 
1085 DATA 20,20,20,20,3A,5E,FC,FC,05,54,55,56,20,01,46,47,EDDA 
1090 DATA 48,49,4A,02,3C,3D,3E,21,02,FC,FC,7D,7D,7D,7D,7D,F3FA 
1095 DATA 3C,3D,3E,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,FC,FC,FC08 
1100 DATA 05,57,58,59,2Q,01,4B,4C,4D,4E,4F,02,3C,3D,3E,21,FF91 
1105 DATA 02,FC,FC,FC,20,20,20,21,3C,3D,3E,21,20,20,20,20,0460 
1110 DATA 20,20,20,20,20,20,FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,0EF8 
1115 DATA FC,FC,FC,FC,3C,3D,3E,FC,02,FC,FC,FC,20,20,20,21,1812 
1120 DATA 3C,3D,3E,21,20,20,20,20,20,20,20,20,20,2C,FC,FC,1C22 
1125 DATA FC,FC,FC,FC,2Û,20,20,20,20,20,20,20,3C,3D,3E,20,21E9 
1130 DATA 02,FC,FC,FC,20,20,20,21,3C,3D,3E,21,20,20,20,20,26B8 
1135 DATA 20,20,20,20,20,20,21,20,20,20,FC,FC,20,20,20,20,2A71 
1140 DATA 20,20,20,20,3C,3D,3E,20,02,FC,FC,FC,20,20,20,20,2F3E 
1145 DATA 3C,3D,3E,20,20,20,20,20,20,20,20,20,20,20,21,21,3197 
1150 DATA 21,21,FC,FC,20,20,20,20,20.20,20,20,3C,3D,3E,21,35A9 
1155 DATA 02,FC,FC,FC,20,20,20,20,3C,3D,3E,20,20,20,20,20,3A76 
1160 DATA 20,20,20,20,20,20,20,20,20,20,FC,FC,7D,3C,3D,3E,3EE2 
1165 DATA 7D,20,20,20,3C,3D,3E,21,02,FC,FC,FC,20,20,20,20,440D 
1170 DATA 3C,3D,3E,20,20,20,20,20,20,20,20,20,20,20,20,20,4664 
1175 DATA 20,20,FC,FC,FC,3C,3D,3E,FC,FC,FC,FC,FC,FC,FC,FC,522F 
1180 DATA 02,FC,FC,FC,3B,20,20,20,3C,3D,3E,20,20,20,20,20,5717 
1185 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,3C,3D,3E,596E 
1190 DATA 20,20,20,20,20,20,20,3A,02,FC,FC,7D,7D,7D,7D,7D,5EF3 
1195 DATA 7D,7D,7D,7D,7D,3C,3D,3E,7E,7D,7D,7D,7D,3C,3D,3E,6543 
1200 DATA 7D,7D,7D,7D,7D,3C,3D,3E,7D,7D,7D,7D,7D,7D,7D,7D,6C53 
1205 DATA 02,FC,FC,FC,20,20,20,20,20,20,20,20,21,3C,3D,3E,7121 
1210 DATA 21,FC,FC,20,21,3C,3D,3E,21,20,20,20,21,3C,3D,3E.758B 
1215 DATA 21,20,20,20,20,20,20,20,02,FC,FC,FC,20,20,20,20,7A02 
1220 DATA 20,20,20,20,21,3C.3D,3E,21,FC,FC,20,21,3C,3D,3E,7E6B 
1225 DATA 21,20,20,20,21,3C,3D,3E,21,20,20,20,20,20,20,20,80C5 
1230 DATA 02,FC,FC,FC,20,20,20,20,20,20,20,20,20,3C,3D,3E,8592 
1235 DATA 21,FC,FC,20,21,3C,3D,3E,21,20,20,20,21,3C,3D,3E,89FC 
1240 DATA 21,20,20,20,20,20,20,20,02,FC,FC,FC,21,20,20,20,BE74 
1245 DATA 20,20,20,20,20,3C,3D,3E,21,FC,FC,20,21,3C,3D,3E,92DC 
1250 DATA 21,20,20,20,21,3C,3D,3E,21,20,20,20,20,20,20,21,9537 
1255 DATA 02,FC,FC,FC,21,20,20,20,20,20,20,20,20,3C,3D,3E,9A05 
1260 DATA 21,FC,FC,20,21,3C.3D,3E,20,20,20,20,20,3C,3D,3E,9E6D 
1265 DATA 20,20,20,20,20,20,20,21,02,FC,FC,FC,21,20,62,63,A36A 
1270 DATA 64,20,20,20,20,3C,3D,3E,3A,FC,FC,20,21,3C,3D,3E,A82F 
1275 DATA 20,20,20,20,20,3C,3D,3E,20,20,20,20,20,20,20,21,AA87 
1280 DATA 02,FC,FC,FC,21,20,65,66,67,20,20,20,7D,7D,7D,7D,B144 
1285 DATA 7D,FC,FC,20,20,3C,3D,3E,20,20,20,20,20,3C,3D,3E,B607 
1290 DATA 20,20,20,20,20,20,20,21,02,FC,FC,FC,39,20,68,69.BB28 
1295 DATA 6A,20,7D,7D,FC,FC,FC,FC,FC,FC,FC,3B,20,3C,3D,3E,C4A2 
1300 DATA 20,20,20,20,20,3C,3D,3E,20,20,20,20,20,20,20,3A,C713 
1305 DATA 02,FC,FC,7D,7D,7D,7D,7D,7D,7D,FC,FC,FC,FC,FC,FC,D260 
1310 DATA FC,FC,FC,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,7D,DBAD 
1315 DATA 7D,7D,7D,7D,7D,7D, 7D,70,02,00,00,00,00,00,00,00,DF97 


C'est fini... Il faut reconnaître que le travail était long et fasti¬ 
dieux I II ne reste plus qu'à rassembler les morceaux sauve¬ 
gardés précédemment. 

Sur une cassette, vous devez donc avoir 6 morceaux de code 
machine, SINGE1 à SINGE6. 

Tapez : 

HIMEM # 2EOO:CLOAD "SINGE1 ”:CLOAD "SINGE2": etc. 
jusqu'à CLOAD "SINGE6". 

Les voici réunis en mémoire, pour le meilleur et pour le pire. 
Il ne reste plus qu'à sauvegarder le jeu dans son intégralité, 
sur la cassette définitive, par un CSAVE "SINGERIE", 
A4 2E40, E0 7738. Pour le lancer, il suffit de faire CALL 
K 5A30. Et maintenant, amusez-vous bien ! 


865 DATA FF, 00, FF, 00, FF, 00, FF, 00,FF,00,FF,00,FF,00,FF,00,DF5A 
870 DATA FF,00,FF,00,FF,00,FF,00,FF,00,FF,OO,FF,00,F,00,E752 
875 DATA F,00,F,00,F,00,FF,X,FF,00,F,00,FF,00,FF,00,EF4A 
880 DATA FF,00, FF, 00,FF,00,FF,00, FF, 00,F,00,F,00,F,00,F742 
885 DATA F,00,F,00,FF,00,F,00,F,00,F,OO,F,00,F,00,F3A 
890 DATA FF,00,F,00,FF,00,F,00,FF,00,F,00,F,00,F,00,0732 
895 DATA FF,00,F,00,F,00,F,00,F,00,F,00,F,00,FF,00,0F2A 
900 DATA 51,BC,BE,FB,4E,BC,08,02,2A,BC,00,5B,38,5F,64,56,1593 
905 DATA ID,BC,BE,F5,AB.BB,12,01,83,BB,00,73,38,77,0E,50,1C56 
910 DATA 67,BC,BE,CA,AC,BB,14,01,84,BB,C8,4B,00,50,OE,50,237D 
915 DATA C6,BC,BE,F2,B7,BB,15,01,8F,BB,90,47,C7,4B,0E,50,2BC8 
920 DATA E4,BC,BE,F1,AD,BB,14,02,95,BB,5B,43,8F,47,Œ,50,33B4 
925 DATA 13, BC,BE,AO,FD,BB,07,02,D9,BB,E8,3A,1F,3F,OE,50,3B14 
930 DATA 72,ÏC,BE,Fl,C3,BB,0C,O2,A4,BB,BO,36,E7,3A,OE,5O,4341 
935 DATA 86,BC,BE,C9,Cl,BB,OE,02,A4,BB,78,32,AF,36,OE,50,4AE2 
940 DATA 02, 00, FF, 00,FF,00,FF,00,FF,00,F,OO,FF,00,F,00,51DD 
945 DATA F,00,F,00,F,00,F,00,FF,00,FF,00,F,00,F,00,5905 
950 DATA FF,00,FF,00,F,00,FF,00,FF,00,FF,00,FF,00,FF,00,61 CD 
955 DATA F,00,FF,00,F,00,F,00,F,00,FF,00,F,00,F,00,69C5 
960 DATA F,00,F,00,F,00,FF,00,FF,00,FF,OO,FF,00,FF,00,71 BD 
965 DATA F,00,F,00,FF,00,F,00,F,00,F,00,F,00,F,00,79B5 
970 DATA FF,00,FF,00,FF,00,FF,00,FF,00,F,00,FF,00,F,00,81 AD 
975 DATA F,00,F,00,FF,00,F,00,F,00,F,00,F,00,FF,00,89A5 
980 DATA IA,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,8B9F 
985 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,8D9F 
990 DATA 20,20,20,07,20,20,20,20,02,FC,3B,20,20,20,20,20,905F 
995 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,20,FC,FC,9417 
1000 DATA 20,3C,3D,3E,20,20,20,20,20,20,20,20,20,20,20,20,966E 
1005 DATA 02,FC,7E,7E,7E,7E,7E,7E,7E,7E,7E,7E,7E,7E,7E,3C,9E0E 
1010 DATA 3D,3E,7E,7E,20,20,FC,FC,20,3C,3D,3E,20,20,20,20,A314 
1015 DATA 20,20,20,20,20,20,20,20,02,FC,7D,7D,7D,7D,7D,7D,A8O0 
1020 DATA 7D,7D,7D,7D,7D,7D,7D,3C,3D,3E,7D,70,20,20,FC,FC,AF54 
1025 DATA 20,3C,3D,3E,20,20,20,20,20,20,20,20,20,20,20,20,B1 AB 
1030 DATA 02,FC,FC,FC,20,20,20,20,20,20,20,20,20,20,20,20,B621 
1035 DATA 20,20,20,20,20,20,FC,FC,20,20,20,20,20,20,20,20,B9D9 
1040 DATA 20,20,20,7D,3C,3D,3E,7D,02,FC,FC,FC,20,20,7D,7D,C01A 
1045 DATA 70,7D,7D,7D,7D,7D,70,7D,7D,7D,7D,70,20,20,FC,FC,C82E 
1050 DATA OC,06,5A,5B,5C,06,02,20,20,20,20,21,3C,3D,3E,21,CAD4 
1055 DATA 02,FC,FC,FC,20,20,20,20,20,20,20,20,20,20,FC,FC,0102 
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I J année scolaire est bien entamée ... Quoi de plus 
judicieux que d'utiliser /'OR/C comme aide 
■ pédagogique l 


10 REM <-> 

20 REM < LEGRAND José > 
30 REM < 22 rue de BOUVINES > 
40 REM < 80000 AMIENS > 
50 REM < > 
60 REM < CALCULS DANS N > 
70 REM < ORIC ATMOS > 
80 REM <-> 


90 REM COEUR 

100 CA$ = "0054626228080000" 

110 FOR1 = 1TOLEN <CA t)/2 

120 A=VAL(MID<(CAi,2*1-1,2)) 

130 P0KE46591+I,A 
140 NEXT 

150 POKE464 43,63 : REM REDEFINITION - 
160 POKE48036,0 : REM CAPS 
170 POKE61B,2:REM CLAVIER MUET ,PAS D 
E CURSEUR 

180 GOSUB2210 : REM PRESENTATION 
190 REM 
200 REM 

210 REM FENETRE 
220 REM 
230 REM 
240 CLEAR 
250 CLS 

260 PAPER0: INK6 

270 POKE638,21:CLS: REM POKE623,21 POU 
R ORIC 1 
280 GOTO400 

290 FORI=23T026:PLOTO,I ,21 :PLOTl ,1,4: 
NEXT 

300 PLOT2,23," en cas d'ERREUR tape <E 
> " 


Ce programme occupant un peu 
plus de 5 kilo-octets, est destiné 
aux enfants apprenant la techni¬ 
que des additions, soustractions, 
multiplications par un chiffre. 

Ce n'est pas un programme de 
calcul mental, son ambition est 
plutôt de faire acquérir des méca¬ 
nismes que de contrôler. 

Pour cela, on peut afficher 
d'éventuelles retenues, faire 
apparaître et effacer des tables, 
corriger ses erreurs. 

On ne peut passer à une autre 
opération que si la réponse est 
exacte. 

Les transformations pour ORIC-1 
sont incluses dans les REM. 

La présentation montre l'utilisa¬ 
tion des attributs en LORES 0, 
elle est accompagnée d'une jolie 
mélodie. 

Vous pouvez charger votre 
numéroteur automatique pour 
taper le progamme. 


AVEZ-VOUS 

LA 

COLLECTION 

COMPLETE 

DE 



(voir page 3 I 
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310 

PLOT2,24, 

"pour RETENUE tape <R> e 

t 1 a 

retenue" 


320 

PLOT2,25, 

"pour une TABLE tape <T> 

e t 

le chiffre 

II 

330 

PL0T2,26, 

"pour EFFACER la table t 

ape 

<F> " 


340 

REM 


350 

REM 


360 

REM CHOIX 

OPERATION 

370 

REM 


380 

REM 


390 

GOT0500 


400 

PRINT:PRINT:PRINT:PRINT 

410 

PRINT:PLOTO,7,17:PLOTO,10,17:PL0T 

0,13 

,17 



420 PRINT"* QUELLE OPERATION DESIRES- 
^30 &RINT : REM TAB ( 22 ) AU LIEU DE TAB ( 
9) POUR ORIC 1 

440 PRINT TAB(9)J"<1> - ADDITION" 

450 PRINT; PRINT; PRINT TAB(9).r"<2> - S 
OUSTRACTION" 

460 PRINT;PRINT: PRINT TAB ( 9 ) <3> - M 

ULTI PLICATION" 

470 PRINT:PRINT:PRINT: PRINT"TAPE TON 
CHOIX 1,2 OU 3 :" 

480 GETR*: IFR*<>"1"ANDR*<>"2"ANDR* O" 
3"THEN430 
490 GOTO290 

500 R=VAL( R* ) ! ON R GOTO 540,620,700 
510 REM 
520 REM 

530 REM ADDITION 
540 REM 
550 REM 

560 J=0:W=43:GOSUB770:RS=X+Y:RS*=STR* 
(RS) 

570 RS* = RIGHT< < RS*,LEN(RS*)-1) : RI=LEN 
(RS* ) 

580 GOSUB930:GOSUB1890 :CLEAR:GOTO540 
590 REM 
600 REM 

610 REM SOUSTRACTION 
620 REM 
630 REM 

640 J=0 !W=45:GOSUB770:RS=X-Y:RS*=STR* 
(RS) 

650 RS*=RIGHT*(RS*,LEN(RS*)-l): RI=LEN 
(RS* ) 

660 GOSUB930:GOSUB1890 :CLÈAR:GOTO620 
670 REM 
680 REM 

690 REM MULTIPLICATION 
700 REM 
710 REM 

720 j = 0: :W=120 :GOSUB770:RS=X*2; RS* =ST 
R*(RS) 

730 RS*=RIGHT*(RS*,LEN(RS*)-l): RI=LEN 
(RS* ) 


740 GOSUB1140:G0SUB1890:CLEAR:GOTO?00 
750 REM 
760 REM 

770 REM CHOIX DES NOMBRES 
780 REM 
790 REM 

800 X=INT(RND( 1 )* 1000) :Y=INT(RND( 1)il 
000);2=INT(RND(1 )*9) 

810 IFY>X THENM=X:X=Y :Y=M 
820 X*=MID*(STR*(X) .2) : Y t =MIDt(STR*(Y 
),2):Z*=MID*(STR*(Z),2):CLS 
830 RETURN 
840 REM 
850 REM 

Ü60 REM TEST DE REPONSE 
870 REM 
880 REM 

890 GETR*: IFR* <>"O"ANDR* O"N"THEM890 
900 RETURN 
910 REM 
920 REM 

930 REM AFFICHAGE ECRAN 
940 REM 
950 REM 

960 FOR 1 = 1T06'PLOTO,1,10:NEXT 
97 0 PLOT1,5,1 : PLOT1,6,1:PL0T1,4,1 :PLO 
Tl,3,1 : FOR1 = 1TO18 : PLOT 15,1,7:NEXT 
980 FOR1=1T04:PLOT4,1,3:NEXT 
990 PLOT8-LEN < X * ' ,2,X*:PLOT8-LEN(Y*) , 

4,Y*:PLOT3,4,CHR *(W) :PLQT3,6,"-" 

1000 PLOT8-LEN(X «) ,1 ,X*:PLOT8-LEN(Y *) 

,3,Y*:PLOT3,3,CHR* < W) :PLOT3,5,"-" 

1010 RETURN 
1020 REM 
1030 REM 

1040 REM INVERSE NOMBRE 
1050 REM 
1060 REM 

1070 FORJ = LTO1STEP-1 
1080 SEt=SE*+RIGHTt(RE*,1) 

1090 RE*=LEFT*(RE*,J — 1> 

1100 NEXT 
1110 RETURN 
1120 REM 
1130 REM 

1140 REM ECRAN MULTIPLICATION 
1150 REM 
1160 REM 

1170 FORI=1T06:PLOTO,1,10:NEXT 
1180 PLOT1,5,1 : PLOT 1 .6,1 :PLOTl ,4,1 : PL 
OT1 ,3,1 : FOR1 = 1TO18 : PLOT 15,I ,7 :NEXT 
1190 FOR I=1T04: PLOT4,1,3:NEXT 
1200 PLOT8-LEN(X*>,2,X*:PLOT7,4,Z*: PL 

0T3,4 , CHR* ( W ) : PLOT3,6 , "-" 

1210 PL0T8-LEN < X*),1 ,X<:PLOT7,3,2*: PL 

OT3,3 , CHR * ( W ) : PLOT3,5 , "-" 

1220 RETURN 
1230 REM 


16 

































































































I 240 9EM 

t.:50 rem présentation table 

1260 REM 
1270 REM 
1280 GOSUB1 G 10 

I290 PORl=0TO20:PL0T25,I,2:PLOT26,I,1 
7 : FLOT27,1,8:NEX T 

1300 IF W=43 OR W = 45 THEN GOSUB 1530: 

GOTO!320 

i310 IFW =120THENGOSUB1690:GOTO 1320 
1320 RETURN 
1330 REM 
1340 REM 

1350 ><EM AFFICHAGE RETENUE 
1360 REM 
1370 REM 
1330 GETRt 

1390 IFASC < R*)<4 8 OR ASC<R$)>57 THEN1 

380 

1400 PLOT7-J,0,R$ : IFW = 45THENPLOT6-J,5 

,R* 

1410 R $ = "" 

1420 RETURN 
1430 REM 
1440 REM 

1450 REM SUITE A UNE ERREUR 
1460 REM 
1470 REM 

1480 J=J-1 :R$="" îPING 

1490 REi=LEFT$ <RE<,LENIREt)-1) 

1500 RETURN 
1510 REM 
1520 REM 

1530 REM TABLES ADDIT. ET SOUSTR. 

1540 REM 
1550 REM 

1560 GETR$:IFASC ( R$)<48 OR ASC(Rt)>57 

THEN1530 

1570 PLOT1,11," 

1580 A$=R$+" + "+" "+" = " 

1590 KK=VAL(RM 
1600 IFW=45THEN1640 

1610 FORI =0TO9 : PL0T28,1 +24:1 ,A$ :PLOT31 
,142*1,STRM I):PLOT35,1+2*1,£TR$(I+KK) 
1620 NEXT 
1630 RETURN 

1640 FORI=0TO9:PLOT28,1+2*1,STR* <I+KK 
):PLOT31,1+2*1,IPLOT32,1+2*1,STR$(K 

K) 

1650 PLOT35,1+2*1,"=":PLOT36,1+2*1,ST 
RMI) : NEXT 
1660 RETURN 
1670 REM 
1680 REM 

1690 REM TABLE MULTIPLICATION 
1700 REM 
1710 REM 

1720 GETRM IFASC (R< ) <48 OR ASC (RO >57 
THEN1690 



1730 PLOT1,11," 

1740 A$=R$+" x "+" "+" = " 

1750 KK=VAL(RO 

1760 FORI=0TO9:PLOT28,1+2*1,A$IPLOT31 
,1+2*1,STRi(I):PLOT35,1+2*1,STR$(I*KK) 
1770 NEXT 
1780 RETURN 
1790 REM 
1800 REM 

1810 REM EFFACE TABLE 
1820 REM 
1830 REM 

1340 FORI=0TO20:PLOT26,I,16:PLOT27,I, 
" ":NEXT 

1850 RETURN 
1860 END 
1870 REM 
1880 REM 

1890 REM ANALYSE COMMANDE 
1900 REM 
1910 REM 
1920 GETR$ 

1930 IFASC(R$)=70THENGOSUB1810 :GOTOl9 
20:REM F 

1940 IFASC(R$)=82THENG0SUB1350 :GOTOl9 
20:REM R 

1950 IFASC <R$ ) = 69AND JO0THENG0SUB1 450 
;GOTOl920 : REM E 

1960 IFASC(R$)= 84THENGOSUB1250 : GOTO19 
20:REM T 

1970 IFASC(R$)<4 80RASC(R$)> 57THEN1920 
ÎREM UN CHIFFRE 
1980 J=J+1 

1990 PLOTO,7,10:PLOTO,8,10:PLOT1,7,2: 
PLOT1,8,2 

2000 RE$=RE*+R$:PLOT8-J,8,RIGHT*(RE$, 

1) :L=LEN(RE$) :PLOT8- J,7,RIGHT $(RE %,1 ) 
2010 IFL<RITHEN1920 
2020 A$ =KEY♦ 

2030 FORI = 1T0500: A* =KEY< 

2040 IFAt = "E"THEN1=500 :GOSUB1450 : GOTO 
1920 

2050 NEXT 
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,'06 J GOSUB10 40: i FSEi=RS$THEN2 130 

2070 SHOOT:WAIT10Û:PL0T1,14,"_ CES 

1 FAUX PLOT 1,16, "RECOMMENCE ' • ! " 

2080 GETRi: PLOT 1,14," 

": PLOT1,16," 

2090 FOR1=1TOL:PLOT8-I,S," ":PL0T8-I, 

7," ":MEXT 

2 100 PLOT 1,0," " : PLOT 1,5," 

" : PLOT3,6 , "-" : PLOT3, 5, "- 

le 

2110 PLOT 1,5,1:PLOT 1,6,1 

2120 REi -""1 SEt = "":J = 0:GOT01930 

2130 PLOT1,20,"...BRAVOPING :W 
AIT300: PING 

21-10 FLOT 1,20 , "ON RECOMMENCE ? " : GOSUB 

360 

2150 1 FR! = "0”THENRETURN 

2160 PLOT1,20,"AUTRE OPERATION ?":GOS 
UB86 0 

2170 iFR» = "0"THENPOP:CLS:CLEAR:G0T040 

0 

2180 CLS:KESTORE:G0SUB2370:CALL583: RE 

M GAL.L555 SUR OR IC 1 : REM RESET 

2190 RLM 

2200 REM 

2210 REM PRESENTATION 

2220 REM 

2230 REM 

2240 LORESO 

2250 Ai=CHRi<3)+"THE"+CHh'i<64) + "RIC" + 
CHRi(1)+"et"+CHRi(3)+"LEGRAND José" 

2260 A ♦ = Ai +CHRi<4)+ "présentent" 

2270 FOR 1 = 1TOLEH(A $) :PLOTI,1,MIDi<Ai, 
1,1):NEXT 

2280 Ai="C ALCULS DANS" 

2290 PLOT6,3,CHRt<10)+Ai:PLOT6,4,CHRt 
(10)+ A î 

2300 PL0T3,3,5:PLOT3,4,6 

2310 FORI=8T022: PLOT9, I,16+INT(RND(1 ) 
«6 + 1) îPLOTl2,I,16+1 NT(RND(1)*6+l) :NEXT 
2320 FOR 1 = 1OTO11 :PLOTI,8,16+INT(RND<1 

)*6+1) : PLOT I ,22,16+INT(RND<1>*6+1) : NEX 
T 

2330 PORI=8T022:PLOT5+I , I , 16+INT(RND< 

1>*6+1):NEXT 

2340 FORI = 22T08STEP-1:PLOT28,I , 16+INT 
<RND(1)*6+1) : NEXT 

2350 REM 

2360 REM 

2370 REM LE CARTABLE HENRI DES 

2380 REM 

2390 REM 

2400 DIMD(63),0(63),N(63) ! REM DUREE,0 
CTAVE , NOTE 

2410 FOR1=1T063 

2420 READD(I) ,0( I),N(I) 

2430 IFO<I)=7THEN2480 

2440 PLAY7,0,0,0 

2450 MUSIC1 , 3+0(I),N<I > ,8 

2460 MUSIC2,4+0(1),N(I),6 

2470 MUSIC3 , 2+0 < I) ,N< I ), 6 

2480 WAIT15*D(I) 

2490 PLAYO,0,0,0 

2500 NEXT 

2510 DATA 1,1,5,1,1,6,2,1,8,2,1,1 

2520 DATAI,1,6,1,1,5,2,1,3,2,0,12 

2530 DATAI,1,5,1,1,3,2,1,1,2,0,10 

2540 DATA2 , 1,3,4,0,12,1,1,1,1,0,12 

2550 DATA2,0,10,2,1,6,1,1,5,1,1,3 

2560 DATA2,1,5,2,1,1,1,1,1,1,0,12 

2570 DATA2,0,10,2,1,6,2,1,3,4,0,12 

2580 DATAI , 1,5,1 , 1,6,2,1,8,2,1 , 1 

2590 DATAI , 1,6,1,1,5,2,1,3,2,0,12 

2600 DATAI,1,5,1,1,3,2,1,1,2,0,10 

2610 DATA2 , 1,3,4,0,12,1,1,1,1,0,12 

2620 DATA2 ,0, 10,2,1,6,1,1,5,1,1,3 

26 30 DATA2,1,5,2,1,1,1,1,1,1,0,12 

2640 DATA2,0,10,2,1,6,2,0,12,4,1,1 

2650 DATA2,7,0 , 4 , 1 , 1,2 , 1,5,6,1 , 3 

2660 DATA4 , 1 ,6 ,2 , 1 , 10,6 , 1 , 8 

2670 WAI Tl 00 

2680 TEXT:RETURNB 

1 1 1 M 1_L_U_ lllll_ 
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SYSTEM 'ANIMATION® ÏSTsm"' 

nilTIUJtTIP 1 3 atltitalres: présenta. 

UU I lmAl Ile I® preirammation, copie.. 

[Î2 Ôf1 

ET LES AUTRES... 






Es® 



Pour plus de détails sur nos logiciels, 
nos matériels, connaître l'adresse 
nos dépositaires... 

^SERVEUR MINITEL . 75.40.48.44 
de 18 h a 9 h tl lit «eek-end, 
s ou notre catalogue 
^complet, contre 
.2 timbres à 

LOGICIELS, \ 2.20F 

- MICRO-INFORMATIQUE 
et 

PERI-INFORMATIQUE 


ATMOS, TELESTRAT 


® MOS 



80, rue des fourniers 07 500 GUILHERAND =" 


[□MATH-SAM DMUSIRAMA □ LISSAGE O SYSTEM'ANIMATION DOUTIMATIC _ règlement à la commande, port 15 F 

| loin_Pnnom_Adressa__ 
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PLUS QU'UN 
NOUVEL ORIC 


Fabrice BROCHE 


nnoncé depuis longtemps, le TELESTRAT arrive enfin 
dans les foyers : suivons ensemble quelques instants de 
^^la vie de l'homo oricus qui pianote sur son TELESTRAT. 
Sa première action est d'afficher et de mettre à l'heure l'hor¬ 
loge (TIME 1,34:CLOCKSET # BB80). En effet, le temps passe si 
vite sur le TELESTRAT... 


Il charge ensuite le programme 
qu'il est en train d'élaborer, une 
gestion de base de données. La 
rapidité de l'Hyper-basic lui per¬ 
met en effet de réaliser ce logi¬ 
ciel complexe en Basic. Il tape 
SGBD pour charger son pro¬ 
gramme, songeant un instant 
qu'il aurait dû taper 'LOAD 
"SGBD.BAS'' sur d'autres ordi¬ 
nateurs, et s'étonnant que des 
opérations aussi courantes 
nécessitent autant de caractè¬ 
res... 

Ne se rappelant plus trop où il en 
était, il lance une impression de 
son programme (LLIST). Grâce à 
son buffer imprimante intégré, le 
TELESTRAT lui rend tout de suite 
la main, et il continue l'édition de 
son programme. C'est, il est vrai, 
facile, grâce à cet analyseur de 
syntaxe qui va jusqu'à vous dire 
où placer la virgule. Et puis, cet 
éditeur de pleine page, quel 
régal ! 

Mais le téléphone retentit. Un col¬ 
lègue graphiste lui téléphone et 
veut absolument lui montrer sa 
dernière création sur TELE¬ 
STRAT. HIRES:MLOAD, il est 


prêt. Son ami connecte son 
TELESTRAT, et l'homo oricus 
appuie sur CONNEXION/FIN. La 
transmission de la page débute. 

Il jette un œil amusé sur l'impri¬ 
mante qui continue à tirer son lis¬ 
ting. La transmission est finie. 
Son ami lui signale à tout hasard 
le dernier serveur à la mode sur 
le 3615, lui souhaite bonne nuit. 
Il sauve l'écran sur la disquette 
(ESAVE "ECRAN”) et décide 
d'en faire immédiatement une 
copie graphique sur l'imprimante, 
qui a, entre-temps, fini le listing. 
(HCOPV). Il revient en mode 
texte pour continuer son pro¬ 
gramme. Déjà 2 heures, lui 
signale l'horloge. 

Se ravisant, il va consulter le ser¬ 
veur conseillé par son ami. 
APLIC1 : il lance l'émulation 
Vidéotex. Il se connecte, con¬ 
sulte et décide de recopier quel¬ 
ques jolis dessins ; il lui suffit de 
taper E et le nom de la page, et 
le tour est joué. Sa collection 
s'enrichit. 

Il revient ensuite au Basic. Son 
programme est toujours là. Sa 
base de données commence à 


tourner, il est vrai que l'accès 
direct façon TELESTRAT est 
d'une facilité d'emploi incroyable. 
Son programme devenant long, 
il bénit l'utilisation des labels pour 
ses routines, qui documentent 
son programme en même temps 
qu'elle facilite son écriture 
Dans sa tête surgit alors une idée 
un peu folle : pourquoi ne pas 
rendre sa base de données acces¬ 
sible par Minitel ? 

Il réfléchit deux secondes et se 
lance. APLIC3: il saute dans l'édi¬ 
tion d'arborescence et écrit un 
mini-serveur pour tester son 
application : une ou deux pages 
de présentation (il appuie 2 fois 
sur P, et c'est tout), suivi d'un 
sommaire (il appuie sur S). 
Ensuite, une page d'accès Basic 
(il presse H). Pour l'instant, ça 
suffit, on fignolera après. Il teste 
immédiatement le fonctionne¬ 
ment correct de son arbores¬ 
cence, même sans avoir dessiné 
les pages (test sans accès dis¬ 
que). Il se dit qu'une petite boîte 
aux lettres ne ferait pas de mal, 
c'est si facile. Et puis, ça peut 
fidéliser les correspondants... Il 
retourne dans l'arborescence, se 
déplace avec la souris sur le 
SOMMAIRE et appuie sur B. La 
boîte aux lettres est créée. Bien 
sûr, quand il aura le temps, il 
l'écrira en Basic avec des anima- 
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tions sympa. 

Il retourne sous Basic (la touche 
ESC). Tiens ? Son programme est 
toujours là. Il le sauve (SAVEU 
"SGBD). Pratique, cette sauve¬ 
garde qui garde toujours les deux 
dernières versions du pro¬ 
gramme. Pas d'accidents à crain¬ 
dre... 

Pendant qu'il réfléchit à sa base 
de données, il décide de dessiner 
la page de présentation de son 
serveur. APLIC 2 : il est dans 
l'éditeur de page. Il tape .G pour 
passer en mode graphique. C'est 
un réel plaisir que de dessiner 
avec la souris en mode graphi¬ 
que. Il a sommeil. Bon, un dernier 
titre en double taille et il coupe la 
machine. 

En s'endormant, il songe à ce que 
lui aurait coûté une machine avec 
un Basic compilé, un buffer impri¬ 
mante, une consôle de composi¬ 
tion Vidéotex, un logiciel de ser¬ 
veur, un modem... Vive le TELE- 
STRAT. 

LE CONCEPT TELESTRAT 

Le TELESTRAT apporte plusieurs 
mini-révolutions au sein de la 
micro-informatique. 

• L'existence d'un logiciel télé¬ 
matique intégré, utilisant le MINI¬ 
TEL distribué gratuitement. Ce 
logiciel est d'une extraordinaire 
facilité d'emploi par rapport à tout 
ce qui s'est fait dans ce domaine. 
Notamment, quel logiciel permet 
de dessiner l'arborescence de son 
serveur directement à l'écran, ou 
de dessiner des pages graphiques 
pavé par pavé, sans jongler avec 
les barbares jeux de caractères 
Vidéotex ? 

Aucune connaissance prélimi¬ 
naire de la télématique n'est 
nécessaire... 

• Un basic compilé, le plus 
complet du marché. Outre sa 
rapidité, inédite sur un micro, il 
peut se targuer d'être le plus inte¬ 
ractif des Basics, allant même 
jusqu'à supprimer le classique 
"Syntax Error". 

• Un grand nombre d'extensions, 
dont la très rare MIDI, sont inté¬ 
grées. La communication n'est 
pas un vain mot ! 

• Enfin, une facilité d'emploi hors 
du commun, liée surtout à une 
très grande rapidité (accès dis¬ 


que, imprimante bufférisée, cla¬ 
vier bufférisé, le Basic lui-même), 
à l'éditeur pleine page qui auto¬ 
rise le défilement dans tout le 
texte Basic. Et, en général, tout 
a été conçu pour que l'utilisateur 
n'ait à se préoccuper que de la 
résolution de son problème, et 
que les tâches "basses", du type 
problèmes syntaxiques, écriture 
disques, édition... prennent le 
moins de temps possible 
Un autre aspect de la conception 
est à signaler, même s'il est 
moins apparent : c'est l'aspect 
modulaire du logiciel. 

En effet, le TELESTRAT est fourni 
avec pas moins de 40 Ko de 
ROM, plus 11 Ko de DOS, sans 
compter une foule d'utilitaires sur 
la disquette système. 

ORGANISATION DU LOGICIEL 

Le principal souci lors de la 
conception a été de rendre les 
évolutions du logiciel faciles, tout 
en assurant la compatibilité avec 
les versions précédentes. Il était 
aussi utile de grouper toutes les 
routines de base en un seul logi¬ 
ciel, toujours présent, quelle que 
soit la configuration de la 
machine, ou les logiciels et lan¬ 
gages présents. 

Donc, le logiciel s'articule autour 
du TELEMON, sorte de système 
d'exploitation du TELESTRAT. 
Lorsqu'il s'agit de gérer les accès 
disque, c'est le STRATSED. 
Ainsi, la cartouche TELEMATI¬ 
QUE n'a besoin que du TELE¬ 
MON, et éventuellement du 
STRATSED. 


RESUME DES FONCTIONS 
DU TELEMON 

Le TELEMON assure en premier 
lieu l'initialisation de la machine. 
Il termine la configuration, c'est- 
à-dire la présence des lecteurs, de 
l'imprimante, de la capacité RAM 
disponible, de savoir s'il faut se 
servir du Minitel comme terminal 
de visualisation. Ensuite, il initia¬ 
lise les entrées-sorties, puis lance 
enfin le programme d'application 
ou le langage selon la configura¬ 
tion. 

Mais aussi, et surtout, le TELE¬ 
MON est un réservoir de routines. 
Ainsi, les langages ou applica¬ 


tions n'ont pas à se préoccuper 
de tous les problèmes de gestion 
du clavier, affichage, etc. Tout ce 
qu'il faut, et même plus, existe 
dans le TELEMON. 

Ainsi, on trouve des routines 
classiques, telles que conversions 
binaire-décimal-hexa-flottant, 
déplacement de blocs mémoire, 
drivers pour toutes les entrées- 
sorties (4 fenêtres d'écran, cla¬ 
vier, souris, joystick. Minitel, 
RS 232, imprimante, émulation 
Vidéotex). 

Il y a aussi toutes les routines de 
calcul en flottant, tout ce qui 
concerne la haute résolution, la 
possibilité d'échange via le Mini¬ 
tel, la détection d'appel. 

Comble de raffinement, l'éditeur 
pleine page est aussi une routine 
du TELEMON. ainsi que la gestion 
des menus déroulants que l'on 
trouve dans la télématique. 
Ainsi, les langages n'ont à se 
préoccuper que de l'analyse de 
syntaxe et du passage de para¬ 
mètres au TELEMON. 

Cette construction a pour avan¬ 
tage sa simplicité d'usage pour 
les développeurs, amateurs ou 
professionnels, mais aussi sa 
compacité : le logiciel TELEMA¬ 
TIQUE du TELESTRAT occupe 
seulement 8 Ko. Etonnant, non ? 

LE STRATSED 

Le STRATSED assure la même 
fonction que le TELEMON, à 
savoir être un réservoir de routi¬ 
nes. Mais, on s'en doute, il gère 
uniquement les disquettes. Il 
contient toutes les primitives 
pour sauver, lire, copier, changer 
de nom, protéger, déprotéger un 
programme. Ainsi que les routi¬ 
nes d'initialisation, de copie de 
disquette, etc. 

Bien entendu, la gestion de fichier 
est accessible, les accès direct et 
séquentiel étant gérés par le 
STRATSED. 

Avant de passer à la description 
de l'Hyper-Basic, puis de la TELE¬ 
MATIQUE, voici un bref résumé 
des caractéristiques du Hard du 
TELESTRAT. 

QU'EST CE QU'IL 
Y A A L'INTERIEUR 

Le TELESTRAT est construit 
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autour d'un 6502. La gestion des 
périphériques est assurée par 
deux VIA 6522, une ACIA 6551, 
un FDC 1793 (pour les lecteurs 
de disques). 

La capacité RAM intégrée est de 
64 Ko. 

Le logiciel est implanté sur deux 
ports cartouches. Chaque port 
peut recevoir 64 Ko de mémoire. 
Ce peut être de la ROM, de la 
RAM ou n'importe quoi d'autre 
(extensions diverses...). La ROM 
est partitionnée en banques de 
16 Ko. A la mise sous tension du 
système, la cartouche contenue 
dans le port de gauche est lan¬ 
cée. On aura donc intérêt à lais¬ 
ser un TELEMON, qui assurera 
l'initialisation. Après, toutes les 
fantaisies sont permises : 96 Ko 
de ROM ou de RAM supplémen¬ 
taires, ou un mélange des deux... 
Si les cartouches ROM ou 
EPROM ont un format reconnu 
par le TELESTRAT, elles seront 
automatiquement lancées. 
L'espace mémoire du TELE¬ 
STRAT est donc séparé entre la 
zone #0000-#BFFF, la RAM, et 
la zone #C000-#FFFF qui est 
paginée 8 fois : la banque 0 
contient de la RAM, et le STRAT- 
SED. La banque 7 contient le 
TELEMON, la banque 6 l'Hyper- 
Basic. La cartouche TELEMATIC 
occupe la banque 3. 

Que d'extensions ! 

Il suffit de faire le tour du TELE¬ 
STRAT pour remarquer le nombre 
incroyable de connecteurs. 

• Un bus d'extension complet, 
où on retrouve tous les signaux 
du bus 6502. Ce bus est de plus 
directement compatible avec 
celui de l'ATMOS. 

• Un connecteur pour lecteur de 
disquettes. Le contrôleur de dis¬ 
ques est intégré au TELESTRAT 
et permet de gérer 4 lecteurs de 
diquettes. 

Ces lecteurs doivent être au for¬ 
mat Shugart, et donc n'importe 
quel lecteur 3", 3,5”, 5”1/4 
convient, qu'il soit double ou sim¬ 
ple face. Le STRATSED géré une 
capacité formatée de 960 Ko. Le 
lecteur livré avec le TELESTRAT 
est un 3” double densité, double 
face, assurant une capacité for¬ 
matée de 360 à 400 Ko selon for¬ 
matage. 

• Un connecteur imprimante 


parallèle, type Centronics, 
compatible avec la plupart des 
imprimantes du marché. La ges¬ 
tion de l'imprimante est bufféri- 
sée par le TELESTRAT (2 Ko), ce 
qui assure une grande rapidité 
dans les impressions. 

• Un connecteur RS 232, per¬ 
mettant d'accéder à une foule de 
périphériques, type modems, 
tables traçantes, ainsi que de dia¬ 
loguer directement avec la plu¬ 
part des ordinateurs. La liaison 
peut se faire en FULL DUPLEX 
jusqu'à 19200 bauds, et bien 
entendu l'Hyper-Basic permet de 
gérer facilement la sortie série. 

• Un connecteur permettant de 
se relier à un Minitel pour les 
applications TELEMATIQUES. De 
plus, pour assurer la détection 
d'appel, un conjoncteur télépho¬ 
nique PTT, peut se brancher sur 
le réseau PTT. 

• 2 prises joystick, la prise de 
droite étant particulièrement pré¬ 
vue pour gérer une souris. D'ail¬ 
leurs, une souris (port de droite) 
et un joystick (port de gauche) 
sont gérés simultanément au cla¬ 
vier : la souris peut aussi bien être 
utilisée pour faire de l'édition en 
Basic que pour éditer une page 
Vidéotex. 

• Enfin, une extension MIDI, à 
laquelle vient se raccorder une 
boîte comportant les prises stan¬ 
dard MIDI (cette boîte ne contient 
que de la connectique, l'interface 
est intégrée au TELESTRAT, mais 
il était impossible de rajouter 
deux connecteurs DIN et deux 
jacks sur le TELESTRAT...). 

• Bien entendu, une sortie PERI- 
TEL (avec son) pour attaquer les 
télévisions et la plupart des moni¬ 
teurs. 

• Enfin, pour lire les programmes 
de l'ATMOS, une interface cas¬ 
sette est disponible, aux mêmes 
normes que l'ATMOS. 

Ouf, j'aurais été exhaustif en 
ajoutant un bouton de RESET, qui 
permet de se sortir de toutes les 
mauvaises situations en perdant 
un minimum de données. 

L'HYPER-BASIC 

COMPILE ? QUID ? 

L'Hyper-Basic est un langage 
compilé, ce qui signifie en bref 


que lorsque vous tapez RUN, au 
lieu de lancer un interpréteur qui 
lira les instructions de votre pro¬ 
gramme une à une, vous lancez 
tout simplement un programme 
en langage machine. La compila¬ 
tion est le fait de passer d'un 
texte source (le programme Basic 
en clair) à un programme objet, 
en langage machine. 
Généralement, les langages 
compilés ne tournent qu'à grands 
renforts de moyens et sont hor¬ 
riblement peu souples d'emploi : 
la démarche était la suivante 
(avant l'ère Hyper-Basic, n'ayons 
pas peur des mots) : charger un 
éditeur de texte, écrire le pro¬ 
gramme. Sortir, charger un com¬ 
pilateur, compiler. Sortir, charger 
un éditeur de lien, l’exécuter. 

A ce stade, on peut enfin voir ce 
que donne le programme. Mais il 
est probable que vous en ayez 
oublié un ; (point-virgule) ou une 
, (virugle) : on repart depuis le 
début. Toute personne sensée 
trouverait cela insupportable. Le 
seul avantage : le programme 
produit est, lui, très rapide. 

En revanche, les avantages d'un 
langage interprété sont grands : 
l'édition et l'exécution étant des 
phases intimement liées, plus de 
manipulations longues. En revan¬ 
che, le programme résultat, lui, 
s'exécute on ne peut plus lente¬ 
ment. 

Donc, le cahier des charges était 
simple : offrir les avantages d'un 
langage interprété (facilité d'édi¬ 
tion, etc.) et ceux du langage 
compilé (rapidité d'exécution). Je 
pense y être parvenu. 
L'Hyper-Basic se comporte en 
fait comme un langage interprété 
sauf... que le RUN exécute bel et 
bien du langage machine. Un uti¬ 
lisateur non averti ne le saura 
pas, si ce n'est la rapidité d'exé¬ 
cution. 

Exemple : la boucle classique 
(FOR 1=1 TO 10000/NEXT) 
s'exécute en moins de 4 secon¬ 
des. Une même boucle s'exécute 
même en seulement 1/10® de 
seconde (vous avez bien lu) avec 
COUNT/UNCOUNT. 

D'une manière générale, toutes 
les structures de contrôle 
(FOR/NEXT, GOTO, GOSUB, IF- 
THEN...) prennent avec l'Hyper- 
Basic un temps tout à fait négli- 
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geable. A ce niveau, l'Hyper- 
Basic est de 4 à ... 200 fois plus 
rapide qu'un Basic "normal''. 
Par exemple, un GOTO ne prend 
que... 3 micro-secondes 
(300000 GOTO à la seconde !), 
un GOSUB/RETURN environ 30, 
une boucle COUNT/UNCOUNT 
environ 14 micro-secondes 
(70000 boucles par seconde !). 
D'une manière générale, un pro¬ 
gramme s'exécutera de 2 à 4 fois 
plus vite. 

Et surtout, le temps d'exécution 
ne dépend plus de la taille du pro¬ 
gramme. Savez-vous qu'avec un 
Basic non compilé, un simple 
GOTO avec un programme de 
10000 lignes peut prendre 40 ms 
(25 GOTO par seconde !) ? Avec 
l'Hyper-Basic, la vitesse d'exécu¬ 
tion ne dépend en aucun cas de 
la taille du programme. 

ADIEU REFLEXES ! 

L'Hyper-Basic invite donc à per¬ 
dre les vieux réflexes, du style 
éviter les REM qui ralentissent 
(avec l'Hyper-Basic, elles ne font 
pas perdre la moindre micro¬ 
seconde), placer les sous- 
programmes en début de pro¬ 
gramme pour accélérer les 
GOSUB, abuser des variables 
pour éviter des conversions déci¬ 
males coûteuses (avec un Basic 
normal, si vous effectuez 1000 
fois la boucle l = A+10000, le 
nombre 10000 sera converti 
1000 fois en binaire, sachant que 
la conversion prend au moins 
1 ms...), alors que l'Hyper-Basic 
effectue toutes les conversions à 
l'interprétation, une fois pour tou¬ 
tes. 

De plus, l'analyse d'un pro¬ 
gramme montre certaines ins¬ 
tructions très fréquentes. Elles 
ont donc été particulièrement 
optimisées. Ainsi, les boucles 
FOR/NEXT sans STEP sont les 
plus utilisées. Un algorithme spé¬ 
cial a donc été conçu, quatre fois 
plus rapide. Il est aussi de nom¬ 
breuses boucles qui servent uni¬ 
quement à compter, là où la 
variable de boucle n'a aucune 
importance. Dans ce cas, une 
nouvelle structure de contrôle a 
été inventée, COUNT/UNCOUNT, 
qui effectue une boucle en 14 
micro-secondes. 


De même, GOTO, GOSUB, IF... 
ont été particulièrement optimi¬ 
sés. Or, l'expérience montre que 
ces instructions, avec l'affecta¬ 
tion de variable (A = ... ) forment 
80 % des instructions d'un pro¬ 
gramme ! 

Faire le tour des optimisations 
serait long. En résumé, l'Hyper- 
Basic est le plus rapide des Basic. 
Il est même aussi rapide que le 
Forth, à machine égale. 

Une expérience intéressante : 
faire tourner le même programme 
sur un TELESTRAT et un ATMOS 
(le programme ANI de la dis¬ 
quette master, par exemple). Edi¬ 
fiant... 

OÙ L'ON CAUSE 
DE L'EDITEUR 

Le programme s'exécute facile¬ 
ment, certes. Mais encore faut-il 
pouvoir l'écrire. Là encore, le 
TELESTRAT innove et vous rend 
la tâche facile : l'éditeur est de 
type pleine page, et l'analyse de 
syntaxe se fait à l'entrée de la 
ligne. 

L'éditeur de programme du 
TELESTRAT est d'une simplicité 
à toute épreuve : vous vous 
déplacez sur la ligne à modifier 
(clavier, souris, joystick), vous 
modifiez (insertion automatique, 
effacement de tout ou partie de 
la ligne, suppression en insertion, 
etc.), vous validez (return ou sou¬ 
ris ou joystick), c'est tout. 

En fait, la simplicité d'usage n'ap¬ 
porte que peu de commentaires, 
sinon qu'il sera dificle de vous en 
passer ! 

Des éditeurs pleine page, ce n'est 
pas nouveau, à part sur des 
machines de ce prix. Mais celui- 
ci possède une caractéristique 
supplémentaire : le déplacement 
le long du listing. Exemple : votre 
programme fait 100 lignes. Evi¬ 
demment, il ne tient pas sur 
l'écran. Avec tout autre ordina¬ 
teur, vous vous déplacerez à 
grands coups de LIST, .C, zut, 
c'est pas celle que je voulais, 
LIST, cette fois je l'ai eue, mais 
j'avais oublié de modifier la 34, 
LIST... Avec le TELESTRAT, rien 
de tout cela, vous avez à l'écran 
les lignes 50 à 200 ? Vous vou¬ 
lez la ligne 210 ? Il suffit de des¬ 


cendre vers le bas (curseur, sou¬ 
ris...) et la ligne 210 apparaît. 
Bien sûr, la ligne 50 a disparu. Il 
suffit de remonter pour la faire 
réapparaître. L'écran est donc 
une fenêtre sur le texte Basic, 
fenêtre dans laquelle on se 
déplace à volonté. Attention ! si 
vous touchez cet éditeur, vous 
n'en voudrez plus d'autre... 

J'ANALYSE SYNTAXIQUE 

Voilà pour l'éditeur. Mais qu'est- 
ce au juste, cet analyseur 
syntaxique ? C'est méchant ? 
Sous ce nom se cache une réa¬ 
lité agréable : vous ne pouvez pas 
faire d'erreur de syntaxe. 

En effet, l'analyse de syntaxe est 
effectuée dès l'entrée de la ligne : 
impossible de valider une ligne 
dont la syntaxe n'est pas corecte. 
C'est déjà pratique : inutile de 
relancer les 3000 instructions de 
votre programme pour que votre 
modification s'achève sur un 
"syntax error". 

Mais le TELESTRAT ne s'arrête 
pas là, il ne délivre pas un mes¬ 
sage barbare (et frustrant pour les 
débutants) du style "syntax 
error". Il se paie le luxe de dépla¬ 
cer le curseur sur le caractère qui 
n'a pas pu être interprété correc¬ 
tement. Par exemple, si vous 
tapez "POKE 3000A + B, le cur¬ 
seur se positionne sur le A. Votre 
esprit vif diagnostiquera qu'il 
manque une virgule. Vous vous 
dites, c'est incroyable, jusqu'où 
vont-ils aller ? 

Toujours plus loin. En effet, non 
content de placer le curseur sur 
l'erreur, le TELESTRAT va vous 
dire ce qu'il attendait. Dans le cas 
qui nous concerne, le message 
"Attention: " va s'afficher, 

vous invitant à placer une virgule. 
Une vingtaine de messages de ce 
type vous guideront. Vous pou¬ 
vez jouer les novices, en tapant, 
par exemple FOR, puis en vali¬ 
dant un à un les paramètres. 
Vous verrez apparaître tour à tour 
"variable numérique',' = 
expression numérique','TO', 
'expression numérique'. 

Encore une innovation dont il sera 
difficile de se passer... 

Vous voyez que le monde se 
sépare : il y a l'Hyper-Basic et les 
autres. 
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Allez, au passage, 
quelques facilités 
supplémentaires, qui feront 
le lien avec un aperçu des 
commandes disponibles ! 
L'Hyper-Basic invite à la structu¬ 
ration, grâce à ces nombreuses 
structure de contrôle. Rien n'est 
plus beau qu'un programme dont 
les boucles ressortent bien. Mais 
rien de plus fastidieux que de 
créer des indentations à grands 
coups d'espaces et de tabula¬ 
tions. Mais l'Hyper-Basic est là ! 
Les indentations sont générées 
automatiquement par le TELE- 
STRAT. Un FOR, REPEAT ou un 
COUNT, et le texte se déplace 
vers la droite. Un NEXT, un 
UNTIL... et le texte se replace. 
Facile ! Evidemment, les mots- 
clés séparés par des espaces, 
c'est joli et facilite la lecture. Mais 
ça prend du temps, de la place 
mémoire,... Stop. Le TELESTRAT 
génère les espaces où il faut. Inu¬ 
tile de les taper. La preuve. 

10FORI = ITOCOS112) 

20A = A + 1 AND B 

30NEXT 

List et hop ! 

10 FOR 1= 1 TO COSI12) 

20 A = A+ 1 AND B 
30 NEXT 

Inutile de préciser que tout ceci 
ne prend ni de temps d'exécu¬ 
tion, ni de la place en mémoire. 
Au fait, vous auriez pu taper tout 
ceci en minuscules, le résultat 
aurait été le même. 


JE STRUCTURE 
DE CONTROLE 

Tout est fait pour écrire de 
manière structurée, c'est-à-dire 
de manière claire : 

• Les structures FOR/NEXT, 
COUNT/UNCOUNT. REPEAT/ 
UNTIL, WHILE/WEND, GOSUB/ 
RETURN. Il reste tout de même 
GOTO, IF THEN ELSE ! 

• La substitution totale des 
numéros de ligne par des labels. 
Labels qui peuvent avoir, comme 
les variables d'ailleurs, autant de 
caractères (tous significatifs) que 
vous voulez. 

Pour définir un label, il suffit de 
commencer ligne par (label. Ainsi, 
10 IESSAI suffit à définir le label 
essai. Les commandes RUN 10 et 
RUN ESSAI, GOTO ESSAI et 
GOTO 10, GOSUB 10 et GOSUB 
ESSAI, etc. sont équivalentes. 
Plus la peine de se souvenir de la 
signification de la ligne 8700, qui 
va d'ailleurs changer au premier 
RENUM : on l'appelle par son nom. 
Que de temps gagné ! Inutile de 
préciser que la lisibilité est 
incroyablement facilitée. 

Autre possibilité — et non des 
moindres — c'est la suppression 
(facultative) du mot-clé GOSUB. 
Ainsi, un sous-programme peut 


être appelé 
par son nom, 
sans taper GOSUB : 
100 (SAUVE 

110 SAVEU "PROGRAMME”, 
AUTO 

120 RETURN 

Pour appeler le sous-programme, 
il suffit de frapper au clavier (ou 
d'inclure dans un programme) 
SAUVE. En d'autres termes, le 
vocabulaire s'enrichit à l'infini. De 
plus, il n'y a aucune perte de 
temps à utiliser cette méthode. 
Un programme peut s'écrire : 

10 IDEBUT 
20 INI 
30 EXE 

40 GOTO DEBUT 
60 IEXE 
70 REPEAT 
80 VALEUR 
90 TEST 
100 ACTION 
110 UNTIL VRAI 
120 RETURN 

Donc, vive les structures. 

JE FACILITE 

Pour faciliter la vie du program¬ 
meur, il est bon de lui éviter des 
conversions incessantes et 
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autres. Voici, en vrac (et entre 
autres) quelques facilités : 

• Mode degré, pour tous les cal¬ 
culs trigonométriques (mots-clés 
DEGRE/RADIAN). 

• 4 types de constantes numéri¬ 
ques : décimale, hexadécimale, 
binaire, et Ascii. 

65 = # 41 = % 1000001 = 'A' 

• Les chaînes admettent directe¬ 
ment les codes de couleur, sans 
les classiques CHR$(27). De 
plus, les couleurs apparaissent 
dans le listing. 

• Les entrées-sorties sont bana¬ 
lisées. Une simple instruction 
pour changer de fenêtre d'écran, 
pour que les PRINT se dirigent 
vers la RS 232 au lieu de l'écran, 
ou pour se servir du Minitel 
comme clavier. Cet aspect 
nécessite un article à lui tout seul, 
nous le développerons ultérieure¬ 
ment. 

JE BASIQUE 

La liste des mots-clés serait fas¬ 
tidieuse. Disons simplement 
qu'ils couvrent, outre les structu¬ 
res de contrôle, toutes les inter¬ 
faces (RING pour détecter une 
sonnerie, SLOAD pour charger un 
programme par la RS 232, 
MPRINT pour écrire sur le Mini¬ 
tel, LLIST pour lister sur l'impri¬ 
mante, WINDOW pour définir les 
fenêtres d'écrans, etc.). 

Une partie du vocabulaire est 
destinée à la TELEMATIQUE, et 
est développée dans ce chapitre. 
Bien entendu, le graphisme et les 
sons ne sont pas oubliés. 
Attardons-nous sur la gestion de 
fichier, complément indispensa¬ 
ble à toute application sérieuse. 
L'accès séquentiel est on ne peut 
plus simple à utiliser : on ouvre 
un fichier, on écrit les données, 
on les lit séquentiellement... Il 
faut tout de même noter la pré¬ 
sence d'instructions permettant 
de se déplacer dans le fichier 
(REWIND pour aller au début, 
APPEND pour se placer à la fin, 
JUMP pour sauter des enregistre¬ 
ments). 

L'accès direct, quant à lui, frappe 
par sa simplicité d'emploi et sa 
rapidité. La puissance n'est pas 
oubliée, voici quelques chiffres : 
65535 enregistrements, 

512 octets maximum pour enre¬ 


gistrement, 

25 champs maximum par enre¬ 
gistrement, 

0,2 secondes pour accéder à une 
fiche, 

occupation minimale de la dis¬ 
quette (aucun séparateur, les 
secteurs sont remplis au maxi¬ 
mum). 

La simplicité d'utilisation a été le 
maître-mot pendant la concep¬ 
tion. 

Une fois le fichier créé avec 
CREATE (édition pleine page des 
champs, avec leur nom, le type, 
etc.), il suffit d'un OPEN, et le 


Voyons quelles sont ses caracté¬ 
ristiques. 

Ce logiciel peut être abordé sous 
deux angles : 

• Application à part entière, ne 
'nécessitant aucune connaissance 
de l'informatique ni du monde 
Vidéotex. Cet aspect permet de 
se constituer un serveur en un 
temps record, dont les perfor¬ 
mances n'ont pas à rougir face à 
la concurrence, bien au contraire. 
Ne serait-ce que par la rapidité 
d'accès aux pages, etc. 

• Application interactive avec le 
Basic, permettant les applications 
les plus complexes et les plus 
personnalisées. 

LE SERVEUR CLEF EN MAIN 

La force de la télématique à la 
manière TELESTRAT est sa faci¬ 
lité d'emploi. Ceux qui débutent 
avec le TELESTRAT trouvent ceci 
normal, et ils ont raison. Mais 
tous ceux qui ont tâté d'autres 
matériels sont stupéfaits. 
Passons rapidement sur la possi¬ 
bilité de consulter un serveur, de 
sauver sur disque les pages 
Vidéotex, de les imprimer rapide- 


tour est joué. Finies les manipu¬ 
lations lourdes avec les FIELD, 
LSET, RSET : les champs sont 
des variables comme les autres. 
Par exemple : 

10 OPEN 1,1''ESSAI'' 

20 TAKE 1,12 
30 INPUT NOM$ 

40 INPUT 1,12 

et le champ NOM$ est modifié ! 
Les champs peuvent être aussi 
bien numériques qu'alphanumé¬ 
riques, pour éviter les fastidieu¬ 
ses conversions. 

Enfin, 16 fichiers peuvent être 
ouverts simultanément.® 


ment (mode texte) ou avec les 
graphisme. Ces possibilités sont 
classiques. Bien que la possibilité 
de faire en quelques secondes un 
mini-serveur pour les consulter 
facilement soit vraiment très pra 
tique. 

Qu'est-ce qu'un serveur ? Une 
suite de pages Vidéotex dans les¬ 
quelles on se déplace en validant 
des choix ou grâce à des mots- 
clés tapés sur le Minitel. La logi¬ 
que d'affichage des pages (leur 
ordre, leur nom) s'appelle une 
arborescence. Il faut ensuite que 
le serveur sache détecter une 
sonnerie, lancer l'arborescence, 
raccrocher (éventuellement tout 
seul si le correspondant ne se 
manifeste plus), etc. 

Ainsi, la télématique, outre l'ému¬ 
lation, se divise en trois parties : 

— la composition des pages 
Vidéotex, 

— la création de l'arborescence, 

— le lancement du serveur. 

LA COMPOSITION 
DES PAGES VIDEOTEX 

C'est la partie dans laquelle le 
concepteur du serveur passe le 


LA TÉLÉMATIQUE 
INTÉGRÉE 

L a force du TELESTRAT est, plus encore que l'Hyper- 
Basic, la présence d'un logiciel télématique entiè¬ 
rement intégré. C'est déjà une révolution. 
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plus de temps (avec le TELE- 
STRAT). En effet, même si vous 
êtes un as du monde Vidéotex, 
écrire des pages demande du 
temps et... des qualités artisti¬ 
ques indubitables. Toutefois, si 
vous n'êtes pas artiste, les pages 
Vidéotex en mode texte sont très 
faciles à composer. 

Il y a plusieurs types de com¬ 
mande. 

D'abord, modifier les attributs : 
taille, couleur des caractères, etc. 
Ensuite, déplacer des blocs de 
pages (couper/coller), les effacer. 
Il est ausi facile de dessiner direc¬ 
tement en mode graphique, sans 
avoir à se soucier des difficultés 
du mode graphique Vidéotex : 
l'écran a une résolution de 80 par 
72, et c'est tout ! L'usage de la 
souris est un véritable régal. 

Et, le fin du fin pour vos anima¬ 
tions, il est enfantin de préciser 
la taille de la page (qui ne remplit 
par forcément tout l'écran), la 
position du curseur, l'affichage 
du curseur... 

Bref, l'éditeur de page n'a aucune 
limite, si ce n'est les vôtres. 



Maintenant que le TELESTRAT 
semble bel et bien prêt, que la 
cartouche TELEMATIQUE est 
parfaitement au point et que 
l'HYPER-BASIC, comme le bon 
vin, s'améliore de jour en jour, 
plusieurs micro-serveurs voient le 
jour et attendent d'être consul¬ 
tés. Il est évident que tous ces 
micro-serveurs n'auront d'intérêt 
que par le choix des sujets abor¬ 
dés. 

A la rédaction de THEORIC, nous 
ne voulons pas nous poser en 
censeurs, aussi avons-nous 
décidé de publier les numéros de 
téléphone de ces installations. Le 
lecteur-utilisateur jugera par lui- 
même. 

Nicolas FRANEK "MESSTEL" 
50.26.04.68 de 19 à 9h (lundi et 
samedi) et de samedi à lundi 14 h 
"non-stop". 


JE SERBORNETESTE ? 

Une fois les pages créées, l'arbo¬ 
rescence dessinée, il ne reste plus 
qu'à exploiter le serveur. 

Le moyen le plus classique est de 
relier le Minitel à une ligne télé¬ 
phonique (c'est sûrement déjà 
fait !) et d'attendre qu'on vous 
appelle. Dans ce cas, l'écran du 
TELESTRAT, véritable espion, 
vous permettra de suivre la com¬ 
munication. Sachez que dans ce 
mode, tout ce que vous tapez sur 
le Minitel sera reçu par le corres¬ 
pondant. Très drôle si vous avez 
l'esprit farceur ! 

Evidemment, le TELESTRAT 
offre des moyens de tests du ser¬ 
veur, en utilisant le Minitel local 
comme s'il était à l'autre bout de 
la ligne. Ceci ne coûte rien en 
communication, mais permet 
d'être certain du fonctionnement 
du serveur, avant même le pre¬ 
mier appel. Rappelons tout de 
même qu'un serveur ne vous 
coûte rien en communication 
puisqu'on vous appelle. 

Très puissant est le mode "Borne 
de communication", il permet 
d'utiliser un serveur en mode 
local, avec affichage sur le moni¬ 
teur du TELESTRAT. Idéal pour 
faire une démo dans la vitrine 
d'un magasin, pour consulter le 
programme d'une exposition... 
De plus, ce mode permet, grâce 
aux accès Basic, de mixer des 
dessins haute résolution à l'arbo¬ 
rescence, de commander des 
périphériques, de lancer des 
spots, une sono, un instrument 
Midi, grâce aux cartes d'entrée- 
sortie. 

Sans compter les innombrables 
applications de téléchargement... 
Mais, n'oubliez pas qu'un dessin 
haute résolution, s'il peut être 
transmis par Minitel, ne peut.pas 
être affiché sur celui-ci ! 

HYPER-BASIC et 
TELEMATIQUE NE FONT QU'UN 

La télématique et l'Hyper-Basic 
sont deux logiciels séparés mais 
qui communiquent, c'est normal ! 
Ainsi, le Basic comporte un voca¬ 
bulaire télématique fourni, dont 
voici un aperçu : 

MSAVE, MLOAD pour transmet¬ 
tre des programmes, zone 


mémoire... 

MPRINT pour écrire sur le Mini¬ 
tel, 

MOUT pour envoyer un caractère 
(MOUT 12 efface l'écran), 

GET ] pour saisir des caractères, 
RING pour détecter une sonnerie, 
CONNECT/UNCONNECT pour 
prendre ou libérer la ligne, 
WCXFIN pour attendre la con¬ 
nexion du correspondant, 
SERVEUR pour lancer un serveur, 
PAGE$ pour savoir la page où 
l'on se trouve, 

MINITEL pour relancer la téléma¬ 
tique après un traitement par le 
Basic, 

APPLIC pour accéder directement 
aux menus de la télématique à 
partir du Basic. 

Difficile d'imaginer un outil plus 
puissant pour les applications 
télématiques. Sa force est de ne 
pas disperser inutilement les 
efforts (et donc le temps de déve¬ 
loppement) sur des points tri¬ 
viaux tels que la gestion de l'ar¬ 
borescence. 

Sans écrire une ligne de Basic, il 
est possible de faire un très beau 
serveur, permettant la prise de 
rendez-vous, par exemple, ou 
l'utilisation en simple répondeur. 
Grâce ^u Basic, on a accès à la 
gestion de fichiers, aux calculs 
sur les données entrées par les 
correspondants. 

Du garagiste au courtier en assu¬ 
rance, de l'agence de voyage au 
VRP, tout le monde a besoin de 
prendre des commandes, des 
rendez-vous, ou même de rensei¬ 
gner sur ses services en dehors 
des heures de bureau. 
Evidemment, le TELESTRAT peut 
se transformer en automate pour 
se déplacer à travers un serveur. 
Et, pour conclure, sachez qu'il est 
facile de programmer le TELE¬ 
STRAT à distance, à travers un 
simple clavier de MINITEL : 
appuyer sur SHIFT pendant l'ini¬ 
tialisation, pour signaler de se 
servir du Minitel comme écran de 
visualisation. Taper ensuite 
RING:CONNECT et aller appeler 
avec un Minitel, le tour est joué. 
Il suffit de taper SHIFT ENVOI au 
lieu de RETURN. Pourquoi ne pas 
rentabiliser votre TELESTRAT en 
initiant à domicile les gens à le 
programmation ?■ 
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Reprise de votre ancien ORtC 


Pour l'achat de l'un des ensembles TELESTRAT décrits ci-dessous 

ORIC TELESTRAT 


HYPER-BASIC : 

Structuré et compilé. Plus de 250 instructions qui en font le Basic 
le plus complet et le plus rapide du marché. En plus des 
instructions classiques (toutes les fonctions arithmétiques et 
logiques, structures de contrôles, gestion du son et des 
graphismes haute et basse résolution etc..on trouve la définition de 
procédures (labels), un éditeur plein écran avec commande au 
clavier, à la souris ou au joystick, scrolling avant/arrière (sur les 
listings), un jeu d'instructions télématiques (attente de 
communication, téléchargement de programmes ou de fichiers via 
le MINITEL..), des instructions de communication avec n'importe 
quel autre ordinateur via le RS 232. Entrées/sorties banalisées et 
bufférisées gérées par numéros de canaux, permettant notament le 
transfert de données de n'importe quelle entrée à n'importe quelle 
sortie. 4 fenêtres d'écran définissables par l'utilisateur. 
L'HYPER-BASIC est intcrfacé dans le 2 sens avec le logiciel 
TELEMATIC : une arborescence peut rendre la main au Basic, et 
un programme Basic peut appeler une fonction de TELEMATIC. 

Extensions prévues (hard et soft) avant fin 86 

Carte 80 colonnes entièrement compatible VIDEOTEX. Sortie PERITEL 
RVB. Incrustation vidéo possible. 

ORIC .NET pour créer un réseau de TELESTRAT pouvant communiquer entre 
eux et partager les mêmes ressources. Exemple: Un TELESTRAT maître avec A 
M/CRODJSC et 4 TELESTRAT esclaves en serveurs ou autres pourront 
partager la base de données et tous les périphériques . Cela en fera le système 
multi-utilisateur* le moins cher du marché. 

MIDI : interface avec logiciels de téléchargement de séquences et de sons, 
séquenceurs, plus extension du BASIC permettant de réaliser soi même des 
logiciels MIDI 

MODEM avec numérotation et réponse automatiques. 

Digilaliseur d'images VIDEOTEX fonctionnant à partir d'une caméra 
vidéo. Pour des serveurs "pros"! 

Horloge en temps réel Cartouche RAM 64k d extension mémoire 

GANG PROGRAMMER programmateur d'Eproms 2708 à 27512 pour 
développer les applications en ROM. 


TELEMATIC 


Le logiciel intégré qui permet de réaliser soi-méme 
facilement un serveur monovoie : 

Emulalion MINITEL Commande du MINITEL au clavier du 
TELESTRAT ou du TELESTRAT au clavier du MINITEL. 
Visualisation des pages MINITEL sur l'écran du TELESTRAT, 
mémorisation des pages VIDEOTEX sur disquette, impression de 
pages sur imprimante standard. 

Lttmpusition de p ag es VIDEOTEX : elle se fait sans diticulté 
comme avec un traitement de teste (couleurs de fond et de 
caractères, lettres simple ou double largeur et/ou hauteur etc..) 
avec la possibilité d'incorporer des graphismes. La gestion d'écran 
se fait au clavier, au joystick ou à la souris. 

tiCStiun_d'arborescences : une fois les pages composées et 

nommées, vous organisez votre arborescence à votre gré : menus, 
pages écrans, pages temporisées etc.. Arborescences affichées en 
couleurs, ou imprimées. Une arborescence peut gérer plus de 1000 
pages, une disquette peut en stocker 2 i 300. 

Micro»serveur : Le TELESTRAT ainsi utilisé est un serveur 
mono-voie. Connecté au MINITEL, il attend la communication, 
décroche et lance le serveur. Il peut enregistrer des messages, 
raccrocher au bout d’un temps déterminé etc.. 

Itame de communication déconnecté du MINITEL, il peut 
fonctionner en mode local et un utilisateur peut interroger le 
serveur sur place, «actement comme s'il appelait au MINITEL. 
Avec une arborescence de type journal cyclique, il peut délivrer de 
l'information automatiquement, sans intervention extérieure. 

Intera ction PUiiihlc avec l'HYPER BASIC pour l'accès aux 

fichiers ou pour des applications plus sophistiquées. 








Ensemble TELESTRAT n°1 


- Unité central* TELESTRAT 64k 

• Unité ds disquettes 3” doublé fac# MICRODISC (400k) 

- Cartouche programme TELEMATIC 

- Cartouche langage HYPER-BASIC 

- Disquette MASTER STRATSED avec de nombreux utilitaires 
et programmes exemples. 

- Les 3 manuels (Utilisation, Télématique, Index BASIC) 

- Tous les cables (MINITEL, PERITEL, Téléphoné etc..) 

- Alimentation Secteur 220V pour le TELESTRAT et le disque 
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Un "kit développeurs" 

A l'attention des constructeur» ou développeurs 
de systèmes, materiel et logiciel» susceptible» de 
tonctionnar avac le TELESTRAT. nous avons 
réuni un "KIT DEVELOPPEURS" comprenant 
notamment un do»sl»r système avac loua les 
vecteurs du langage-machine, toutes les 
adresses-mémoire, un dossier technlqua. un 
programmeur d'EPROUS etc.. Pour tou» 
renseignement», contacter Jean-Pierre MORLANE 
au 42 SI 20 02,_ 



it ' v Votre TELESTRAT en formule crédit ! 

(\, V* Crédit ô durée variable selon le montant. Faible apport é la commande et premier versement 3 mois plus tard I 
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690 F. 


Offre exceptionnelle 



- Unité central* TELESTRAT 641c 

- Unité de disquettes 3" double face MICRODISC (400k) 

- Moniteur monochrome vert EUREKA MV12 haut* résolution 

- Cartouche programme TELEMATIC 

- Cartouche langage HYPER-BASIC 

- Disquette MASTER STRATSED avec de nombreux utilitaires 
et programmes exemples. 

- Les 3 manuels (Utilisation, Télématique, Index BASIC) 

- Tous les cables (Peritel, Moniteur, minitel etc...) 

- Alimentation Secteur 220V pour le TELESTRAT et le disque 


- Unité central* TELESTRAT 64k 

- Unité de disquettes 3" double face MICRODISC (400k) 

- Moniteur couleur RVB/PERITEL 36cm EUREKA MM14 

- Cartouche programme TELEMATIC 

- Cartouche langage HYPER-BASIC 

- Disquette MASTER STRATSED avec de nombreux utilitaires 
et programmes exemples. 

- Les 3 manuels (Utilisation, Télématique, Index BASIC) 

- Tous les cables (MINITEL, PERITEL, Téléphoné etc..) 

- Alimentation Secteur 220V pour le TELESTRAT et le disque 


Des serveurs 
fonction sur TELESTRAT: 




EUREKA : 
PHAETEL : 
VISMO : 
I.T.S. : 
E.P.V.S. : 
COGECOM 


(1) 42 81 
(1) 43 22 
(1) 43 38 
(1) 42 82 
(1) 69 04 
(1) 43 29 


IN Bureau d'etudes 90 95 
ESPACE MICRO (1) 42 80 
P.A.I. : 49 46 

DUBASQUE : 40 70 


22 72 
17 73 
00 29 
02 41 
94 01 
55 35 
21 00 
26 10 
67 87 
08 07 


Ü 


Ensemble TELESTRAT n”3 


Ensemble TELESTRAT n"2 


Périphériques 

Moniteur monochrome vert MV12 . 1150 

Moniteur couleur EUREKA MM14 . 2490 

Magnétocasselte ORIC à piles ____ 350 

MICRODISC supplémentaire (sans alim.) .. 1790 
Imprimante matricielle COSMOS 80 ......... 2890 

Imprimante plotter 4 couleurs MCP40 . 990 


Accessoires 


Souris pour TELESTRAT . 490 

Joystick type QUICKSHOT 1 .. 95 

Joystick type QUICKSHOT 2 .. 120 

Cable pour imprimante parallèle . 180 

Disquette vierge 3” double face ... 39 

Alimentation pour MICRODISC „. 490 


Lpqigiglg 

Disquette "JEUX D'ARCADE NT' (3jeux) .. 200 
Disquette "JEUX D'ARCADE N - 2" (3jeux) .. 200 
Disquette "DANGEREUSEMENT VOTRE" .. 200 
Cartouche ROMATMOS (émulation ATMOS) .. 200 

Cartouche ROMORIC1 (émulation ORIC 1)_200 

Cartouche "TELE-FORTH” . 390 


Bon de commande à retourner à : 


ORIC 

TELESTRAT 


LA TELEMATIQUE EN PLUS ! 

Teleph. 42 81 20 02 Tlx.649 385 

Démonstration et informations sur MINITEL 

au 42 81 22 72 


ORIC INTERNATIONAL 39 Rue Victor Massé . 75009. PARIS 

r- >ê - 

Je souhaits recevoir rapidement un ensemble TELESTRAT n* . (cocher la configuration choisie) 

□ Ensemble n*1 (TELESTRAT avec MiCROOISC et cartouches) au prix de 3990 F. 

□ Ensemble n’2 (TETESTRAT avec MICROOISC. moniteur vert et cartouches) au prix de «750 F. 

O Ensemble n'3 (TELESTRAT avec MICROOISC. moniteur couleur et cartouches) pour 59S0 F. 

□ Accessoires et pénph. (préciser) ____________ 

Je vous renvoie mon ORIC 1 □ ou ATMOS □ pour repose 980 F. OUI □ NON □ 

□ Cl-ioint mon réglement par chèque de . (montant de ma commande . • 690 F. 

■ en cas de reprise) 

□ Je choisis de régler à réception du colis (montant de ma commande ...■ 690 F en cas 

de reprise ♦ 100 F. de trais de contre-remboursement) 

□ Je choisis de payer mon TELESTRAT é crédit selon la formule décrue cl-contre. en . 

mensualités de . F. Ci-Joint mon apport Initiai de . F. par chèque et les pièces 

nécessaires à la constitution du dossier “. 

J* bénéficierai d'une garanti* total* d'un an Pièces el Main d'oeuvre tur le materiel ainsi qu'une 
I maintenance gratuite logiciels (mises è |our) pendant cette période. 

Nom .. . Signature Ides parents si client mineur) 

Adresse . 


Professionnels de la télématique, nous 
consulter pour RV. et démonstration 


Code . Ville . 

" yotndre 4 toute demande de crédit un bulletin de salaire, une photocopie de pièce atdenuti. une qulttence de 
loyer ou (TEOF/QDf. el un ftotevh d’identité Bancaire pour le constitution du dossier 





















































forth 


LES PETITS MOTS 
QUI FACILITENT LA VIE 

Michel ZUPAN 


M a mère me répétaif souvent : “Bonjour, s'il vous plaît, 
merci : n'oublie jamais les petits mots qui facilitent la 
vie I". Le langage FORTH adore ces petits mots : enri¬ 
chissons notre vocabulaire. 


Certains de nos petits mots sont 
devenus tellement courants chez 
les Forthiens qu'ils sont entrés au 
dictionnaire des nouveaux stan¬ 
dards. Le Forth de l'ORIC ne les 
comprend pas encore : il nous 
suffit de les lui ajouter. 

Le premier écran de ce mois vous 
propose successivement : 

\ (slash arrière) (—) qui complète 
les parenthèses pour entrer des 
commentaires aux programmes 
source. C'est une espèce de REM 
qui force l'interpréteur à ignorer 
le reste d'une ligne. 

U. (U-point) (u —) affiche un 
nombre non signé de 0 à 65535 
dans la base courante.. 

H. (H-point) (u —) affiche un 
nombre non signé, en général une 
adresse, en hexadécimal sans se 
préoccuper de la base courante. 
1-, 2-, 21 , 2* (ni — n2) sont des 
mots qui s'expliquent d'eux- 
mêmes. 

SO est une constante système 
pointant le plancher de la pile des 
paramètres. Sur notre ORIC, 
c'est l'adresse #9D en page 
zéro. 

DEPTH (— n) donne le nombre de 
cellules présentes sur la pile avant 
exécution de DEPTH. 

.S (point-S) (—) affiche tout le 
contenu de la pile sans la modi¬ 
fier. C'est un mot précieux pour 
les débutants qui s'initient aux 
opérateurs de la pile. 

CLITERAL (octet —) est l'équiva¬ 
lent de LITERAL pour un seul 
octet. Il permet d'utiliser en 
compilation l'économe CLIT dont 


notre Forth est doté. 

ASCII (— octet) s'utilise sous la 
forme ASCII lettre pour empiler 
ou compiler le code ASCII de la 
première lettre du mot qui le suit. 
.< s'utilise comme le classique 
pour afficher ou compiler un 
texte. Le caractère délimiteur est 
la parenthèse fermante, ce qui 
autorise l'utilisation de guillemets 
dans le texte. 

Le deuxième écran contient des 
mots codés en langage machine 
pour des raisons de rapidité. Il 
nécessite l'implantation de 
ASSEMBLEUR mais vous pouvez 
réutiliser le procédé décrit dans le 
numéro 15 de THEORIC pour le 
compiler sous ASSEMBLEUR. 

J (— n) donne l'indice d'une bou¬ 
cle externe dans une structure du 
type : 

... DO... DO... I... J... LOOP .. 
LOOP... 

et ouvre ainsi la porte au monde 
des structures matricielles... 
ASKEY travaille comme KEY en 
attente d'une touche au clavier, 
mais exécute directement les 
codes de 0 à 31. 

Nous avons repris les fonctions 
habituelles de l'ORIC, telles que 
les flèches de déplacement, les 
effacements de ligne par CTRL- 
N ou d'écran par CTRL-L, le pas¬ 
sage 38/40 colonnes par CTRL-], 
les inhibitions clavier ou écran, les 
bascules de clic CTRL-F ou des 
minuscules CTRL-T. 

Même le CTRL-A auquel nous 
avons fini par être attachés sur 
ORIC est là : c'est le caractère 


sous le curseur qui est pris. 
Nous en avons cependant ajouté 
deux : CTRL-B qui fait revenir le 
curseur de début d'écran tel une 
fonction HOME et CTRL-D, plus 
spécifique au FORTH, puisqu'il 
force en direct le mode décimal ; 
utile pour ne plus se planter 
quand on charge un écran supé¬ 
rieur à 9 et qu'on est en hexa ! 

Il serait bien sûr possible d'en 
inventer d'autres pour les lettres 
non utilisées : à vous d'en décou¬ 
vrir... 

Une toute petite opération chirur¬ 
gicale va remplacer KEY par 
ASKEY dans la définition du mot 
fondamental EXPECT. 

Je vous prédis que vous n'allez 
plus reconnaître votre FORTH 
ORIC, tellement son clavier est 
devenu pratique ! 

Notre dernier écran nous est pro¬ 
posé par Yves SURREL avec trois 
petits mots bien utiles : 

?VOCS (—) affiche la liste des 
vocabulaires présents dans le dic¬ 
tionnaire. 

?LIST (—) est une version amé¬ 
liorée de VLIST qui affiche tous 
les mots d'un vocabulaire, même 
quand il ne s'agit pas du vocabu¬ 
laire courant. Il doit s'utiliser sous 
la forme : 

?LIST nom-de-vocabulaire. 

Si ?LIST est suivi d'un return ou 
d'un mot non vocabulaire, c'est 
le vocabulaire FORTH qui est 
listé. 

DUMP (adresse —) est un grand 
classique des esprits curieux pour 
explorer une zone mémoire. Les 
octets hexa et les codes ASCII 
sont affichés par lignes de huit 
selon les principes de tout bon 
moniteur. La barre d'espace inter¬ 
rompt l'analyse puis la reprend 
tandis qu'un return y met fin. 
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SCRN# 


n 


théorie 


IMMEDIATE 


U 


BASE ! 

. 2 * 2 t 


( 0) < Petits mots pour FORTH 0R1C ... 

( 1) FORTH DEFINITIONS DECIMAL 

( 2> : \ ( - ) 7LUADING IN 0 C/L / 1+ C/L * IN ! 

< 3> : U. < n - > 0 D. ; 

< 4) : H. ( n - ) BASE 0 SWAP HEX 

( 5) : 1- 1 - ; : 2- 2 - ; : 2/ 2 / 

( 6> 157 CONSTANT S0 
( 7) : DEPTH < n ) S0 SPP - 2/ ; 

< 8) : .S < — ) CR DEP I Fl -DUP 1F 0 SWAP DO I PICK 

( 9) ELSE 1 MESSAGE 1HEN CR ; 

(10) : CLITERAL < o — > STATE P 1F COMPILE CLIT C, 

<11> : ASCII ( <mot> ) < - o ) BL WORD HERE 1+ CP 

(12) STATE P IF I COMPILE J CLITERAL 1HEN ; IMMEDIATE 

(13) : .( ASCII ) S1ATE P 1F COMPILE (."> WORD HERE CP 1+ ALLOT 

(14) ELSE WORD HERE COUNT TYPE THEN ; IMMEDIATE 

(15) ;S 


MZ.86 ) 


. -1 +LOOP 
THEN ; IMMEDIATE 



SCRN# 

( 0) (J , ASKEY , EXPECT MZ.86 ) 

( 1) FORTH DEFINITIONS HEX 

( 2) CODE J XSAVE SIX, TSX, 10b ,X LDA, PHA, 106 ,X LDA, 

( 3) XSAVE LDX, PUSH JMP, ;C 

( 4) CODE ASKEY \ comme KEY ( - n ) avec codes contrôles directs 

( 5) XSAVE STX, 26A LDA, 01 # ORA, 26A SIA, 

( 6) BEGIN, >R C5E8 ( C5F8 VI.0 ) JSR, 

( 7) 7F # AND, 20 # CMP, CS NUT 1F, D # CMP, 0= NOI 

( 8) IF, 1 # CMP, 0= NOT IF, 4 # CMP, 0= NUT IF, 

(9) 2 1» CMP, 0= 1F, 1E # LDA, ENDIF, CCD9 ( CC12 VI .0 ) JSR, 

(10) R AGA1N, ENÜ1F. A # LDA, BASE STA, R> AGAIN, 

(11) ENDIF, 269 LDA, TAY, 12 )Y LDA, 7F # AND, ENDIF 

(12) 26A LDA, FE # AND, 26A STA, XSAVE LDX, PLA, PUSH0A JMP, 

(13) \ Modification de EXPECT : 

(14) * ASKEY CFA ' EXPECT 8 + 

(15) DECIMAL ;S 


ENDIF, PHA, 

;C 


SCRN# 


( 

0) 

( ?VÛCS 

( 

1) 

FORTH DE 

( 

2) 

: ?VÜCS 

( 

3) 


( 

4) 

: ?LIST 

( 

5) 


( 

6) 


( 

7) 


( 

8) 

: DUMP 

( 

9) 


( 

10) 


( 

1 1 ) 


( 

12) 


( 

13) 


( 

14) 


( 

15) 

DECIMAL 


Yves SURREL.86 ) 


NFA ID. CR P DUP 


3 


, ? L 1S1 , DUMP 

FINITIONS HEX 

( - ) CR VÜC-L1NK P BEGIN DUP 6 

0= UNIlL DROP ; 

( <voc> ) ICOMP1LE 1 * ’ FORTH OVER P OVER P = 

0= IF SWAP THEN DROP CR 4 + P 

BEGIN DUP ID. DUP DUP P A0B1 = 0= SWAP L ' LIT NFA 
L ITERAI. = 0= AND WHI LE PF A LFA P REPEAT DROP ; 

( adr - ) BASE P SWAP HEX BEGIN 0 2DF C! CR DUP 

0 <##### #> TYPE SPACE 

8 0 DO DUP 1+CP0<####> TYPE SPACE LOUP 
8 0 DO DUP I + CP /F AND 20 MAX 7E MIN EMIT LOOP 8 + 
2DF CP A0 = 1F 0 2DF C! 

BEGIN 2DF CP DUP A0 = SWAP 8D = OR UNT1L 
THEN 20F CP 8D = UNT1L DROP CR 0 2DF C! BASE 


i 
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Dans un premier temps, l'ordina¬ 
teur a besoin de repères pour 
effectuer correctement son tra¬ 
vail. Ainsi, vous devez lui spéci¬ 
fier la largeur de votre impri¬ 
mante. Le soft est prévu pour 
fonctionner avec toutes les lar¬ 
geurs d'écriture. Ensuite, il se 
renseigne sur la longueur de vos 
feuilles de listing. Cette précau¬ 
tion n'est utile que si vous dési¬ 
rez avoir des messages correcte¬ 
ment centrés sur plusieurs pages, 
la taille moyenne étant d'environ 
60 lignes. Si vous ne connaissez 
pas cette valeur exactement, un 
simple programme en Basic du 
genre FORI= 1 TO 100:LPRINTI: 
NEXT, en positionnant la tête 
d'impression sur le début d'une 
feuille, vous permettra d'y répon¬ 
dre. 

Il ne reste plus qu'à rentrer le 
texte. On peut évidement pren¬ 
dre ces caractères redéfinis. Le 
programme accepte toutes les 
formes de symboles. Plus le texte 
est long, plus le programme sera 
lent. Il fonctionne lettre par lettre 
et les imprime chacune à leur 
tour. Si deux caractères identi¬ 


M INI-PRINT «st un petit utilitaire qui permet à l'ORIC 
de créer des banderoles et de les sortir sur impri¬ 
mante. Pour tout dire, ce programme n'est pas 
exploitable sans imprimante. Je possède personnelle¬ 
ment une GP 100, mais sauf si vous utilisez une impri¬ 
mante bi-directionnelle, ce programme, en toute logi¬ 
que, ne nécessite aucune adaptation ma|eure. 


ques se suivent, il ne refera bien 
sûr pas les calculs et enchaînera 
les impressions. Cependant, ne 
croyez pas que votre corvée de 
paramétrage s'arrête là... 

Vous pouvez également décider 
du nombre de motifs à utiliser. 
Ceci permet entre autres, d'obte¬ 
nir des pavés noirs, inexistants 
d'origine dans les imprimantes. 
Avant d'aller plus loin, je vais 
m'attarder sur le fonctionnement 
du programme afin que vous 
puissiez comprendre, si ce n'est 
déjà fait, l'intérêt d'une telle fonc¬ 
tion. L'idée de base est simple : 
remplacer le bit d'un caractère à 
l'écran par un symbole sur l'im¬ 
primante, tout en ayant effectué 
une rotation de 90 degrés. La 
taille minimale d'une lettre sur 
imprimante sera donc de six 


caractères de hauteur sur huit en 
largeur, si l'on prend la feuille 
dans le sens vertical. Le déco¬ 
dage des bits allumés ne se fait 
pas dans le sens horizontal du 
symbole. Ceci permet notam¬ 
ment d'effectuer plusieurs passa¬ 
ges sur une même ligne verticale 
et d'obtenir par la juxtaposition 
des impressions des caractères 
farfelus (exemple : et 

en y ajoutant "*" donnent un 
pavé noir). 

AAAAA 

"A" A A , 

à l'écran A A 

devient A A Passion 

AAAAA 

On peut rentrer, si on le désire, 
les motifs sous forme ASCII. 
Vous pouvez également définir la 
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longueur et hauteur de votre ban¬ 
derole. Vous donnez en fait un 
coefficient de multiplication. 
Ainsi, si vous définissez une hau¬ 
teur de 2, vous obtiendrez une 
lettre de seize caractères de haut. 
Le soft vous indique alors la 
marge à gauche qu'il doit effec¬ 
tuer si l'on désire des messages 
centrés sur la feuille. Libre à vous 
de la refuser et d'en déterminer 
une autre. Puis, il demande si l'on 
désire centrer le message sur plu¬ 
sieurs pages afin d'obtenir un 
ensemble relativement soigné. 
Vos pouvez, là encore, le refuser. 
Il ne reste plus qu'à déterminer si 
l'on veut changer ces paramètres 
en cours d'exécution, c'est-à-dire 
obtenir des lettres sur un même 
message d'aspect différent, aussi 
bien par la forme que par la taille. 
On valide et on attend, car ce 
programme en Basic n'est mal¬ 
heureusement pas des plus rapi¬ 
des... 

Avant toute utilisation, n'oubliez 
surtout pas de réinitialiser l'impri¬ 
mante. 

Ce programme est entièrement 
compatible ORIC-1 et ATMOS. 



0 : 

1 REM- 

2 REM MINI PRINT 

3 REM Y.B 

4 REM- 

5 : 

6 REM = = = = = = = = = = = = DEBUT = = = = = = = = = = = = 

10 DOKE# 31 ,#FFFF 

15 CLEAR: RESTORE :CLS 

20 DOKE#306,10000 :POKE618,11 

30 PRINT: PRINT : PRINT 

40 I NPUT"Largeur i mpr i man te " .: LI 

50 INPUT "Longueur f eu i 1 1 e " LF : PR I NT 

60 INPUT "VOTRE TEXTE";T$:POKE618,2 

65 PR INT : PR I NT"VAL IDATION < O/N)":GETAt 

70 I F A $ = " N "ORA $ = "n"THEN10 

85 CL=46079:BO=5:PRINT 

90 GOSUB#320 

100 REM= = = = = = = = = -CALCUL= = = = = = = = = = = = 

105 : 

110 DOKE#306,65535 
115 FOR21 = 1TOLEN(T $) 

120 MT$=MID$(T*,21,1) 

125 MT=ASC<MT$)*8+CL 

130 IFMT=EMTTHEN160EL£EEMT=MT 

135 FORZ=1T08 

140 READA(Z),B(2),C(Z),D(2),E<Z),F(2) 

1 45 TT=PEEK(MT+Z)-< A(Z)+B(2)+C(Z)+D(Z)+E( 2 ) +F ( Z ) ) 
150 IFTT=0 THEN RESTORE ELSE140 
155 NEXT Z 
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160 

165 

170 

175 

180 

190 

200 

210 

245 

250 

255 

295 

300 

305 

310 

315 

320 

325 

330 

335 

340 

345 

350 

355 

360 

365 

370 

375 

380 

385 

390 

395 

400 

405 

410 

415 

420 

425 

430 

435 

440 

445 

450 

455 

460 

465 

470 

475 

480 

485 

490 

495 

500 

505 

510 

515 

520 

525 

530 


GOSUB295+BO:BO=MD 
NEXTSI 

DOKE#306,#1000 

PRINT "encore une fois ? " : GET RE» : PRINTREt 
IF RE»="0" OR RE»="o"THEN BO=5:GOTO#5A 
PRINT"Voulei-vous recommencer ?"; :GET RE»:PRINT 
IF RE» = "N" OR RE♦ = "n”THENEND 
GOTO#3C 


RE» 


REM==== IMPRESSION ============= 

GOSUB#320 
FORG=1 TOGO 
FORH=1TOTF 
GOSUB#258 
FOR J = 8TO1STEP-1 
FORK=1TOLC 

I FF ( J ) OOTHEN LPRINTCHR» (CP<H) ) " 
LPRI NT " " 

NEXTK : NEXTJ : LPRINTCHR» (DU) 

NEXTH;LPRINT :NEXTG 

FORG=1 TOGO 

FORH=1TOTF 

GOSUB#258 

FORJ=8T01STEP-1 

FORK=1TOLC 

IFE( J) OOTHEN LPRINTCHR» (CP(H) ) ; 
LPRINT" "i 

NEXTK:NEXTJ:LPRINTCHR*<DU>; 

NEXTH:LPRINT :NEXTG 
FORG=1TOGO 
FORH=1TOTF 
GOSUB#258 
FORJ=8TOlSTEP-l 
FORK=1TOLC 

IFD< J) OOTHEN LPR INTCHR * < CP ( H ) ) 
LPRINT" "J 

NEXTK:NEXTJ:LPRINTCHRi(DU); 

NEXTH:LPRI NT :NEXTG 

FORG=1TOGC 

FORH=1TOTF 

GOSUB#258 

FOR J = 8TO1STEP-1 

FORK=1TOLC 

I FC < J) OOTHEN LPR I NTCHR $ (CP(H) ) J 
LPRINT" "; 

NEXTK:NEXTJ:LPRINTCHR i (DU); 

NEXTH:LPRINT :NEXTG 

FORG=1TOGC 

FORH=1TOTF 

GOSUBM258 

FOR J = 8TO1STEP-1 

FORK=1TOLC 

IFB( J) OOTHEN LPRINTCHR» (CP(H) ) ; 
LPRINT" "J 

NEXTK:NEXTJ :LPRINTCHR»(DU )i 
NEXTH:LPRI NT :NEXTG 
FORG=1TOGC 
FORH=1TOTF 


GOTO#14F 


GOTO#17C 


GOTO#1A9 


GOTO#1D6 



GOTO#203 
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535 GOSKB#258 

54 0 FORJ=8T01STEP- 1 

5‘15 FORK- 1 TOLC 

550 I FR ( J > ■; OTHEN LPRINTCHR 4 < CP ( H ) ) .: î GOTO#230 
555 LPRINT" “ ; 

560 NEXTK: NEXT J :LPRINTCHR 4(DU ) J 
565 NEXTH:LPRINT :NEXTG 
570 RETURN 

599 : 

600 F0RI=1T0SPD 
605 LPRINT" M ' 

610 NEXTI 

615 RETURN 
6 : 


PRINTRE4 


GOTQ#352 



105 REM==== <> Valeurs======== 

110 D0KE#306,#1000:PING 
115 IMPUT"Mb r e de motifs"; NB 
120 PRI NT" sous forme ASCII ?".:;GETRE4 
(25 IFRE4 -"O"ORRE4 = "o" THEN 860 
130 FOR 1 = 1TONB 

135 PRINTI : :GETG4<I> :PRINTC4( I) 

140 I FC 4 ( I ) = " "OR Ci(I)=CHR4< 13)THENTF=I-1 
14 5 NEXT : TF=NB 

150 FOR1 = 1TOTF: CP( I>=ASC<C4 < I ) ) :NEXT:DU=13 
(55 IFNB=1THENDU=1 
>58 GOTO#370 
(60 FORI = 1TONB 

165 PRINTI ; :INPUTCPII>:IFCP<I)>255THEN865 
170 NEXTI:TF=NB:DU=13 
175 I FNB= 1THENDU = 1 
180 INPUT"LARGEUR * ";GC 
INPUT " LONGUEURS " LC 

SPD=INT((80-8*LC)/2):PRINT"Avec le centrâge , marge = 
PRINT"Centrage des lettres :GETRE4: PRINTRE4 

IFRE4 = "N"OR RE4 = "n" THEN910 
GOTO920 

INPUT "MARGE A GAUCHE" SPD 
IFSPD+LC*8>LI THENPING: PRINT"VALEUR 
PR I NT"Centrâge message sur feuilles 
IFRE$ = "N"ORB$ = "n" THEN 960 
BL=GC*6*LEN(T4)-ROTLF 
IF BL)OTHENRO=RO+1 :GOTO930 
FB=I NT( (ROtLF-GCf 6tLEN( T4) )/2) 

PR I NT " NBRE DE LIGNES PASSEES " : PR INTFB 

FORI = 1TOFB.LPRI NT :NEXTI 

PR INT "modification durant 1 'execution GETREt : PR I NTRE 4 

IF RE t = "N"ORRE 4 = "n"THENMD=5ELSEMD=0 
PRINT"VALIDATION ?" : :GETRE4: PR INTRE4 
IF RE $ = "O"ORRE 4 = " o "THEN RETURN 

GOTOSOO 


PRINTSPD 


TROP IMPORTANTE":GOTO#370 
?" ; :GETRE4 : PRINTRE4 


985 : 

99 0 REM====== DATA • 1 1 === = = 

995 : 

1000 DATA 01.00,00,00,00,00 
1002 DATA 01,02,00,00,00,00 
1004 DATA 01,02,04,00,00,00 
1006 DATA 01,02,04,08,00,00 
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1008 

DATA 

01,02,04,08,16,00 

1068 

DATA 

1010 

DATA 

01,02,04,08,16,32 

1070 

DATA 

1012 

DATA 

01,02,04,08,00,32 

1 072 

DATA 

1014 

DATA 

01,02,04,00,16,00 

1074 

DATA 

1016 

DATA 

01,02,04,00,16,32 

1076 

DATA 

1018 

DATA 

01,02,04,00,00,32 

1078 

DATA 

1020 

DATA 

01,02,00,08,00,00 

1080 

DATA 

1022 

DATA 

01,02,00,08,16,00 

1082 

DATA 

1024 

DATA 

01,02,00,08,16,32 

1 034 

DATA 

1026 

DATA 

01,02,00,08,00,32 

1086 

DATA 

1028 

DATA 

01,02,00,00,16,00 

1038 

DATA 

1030 

DATA 

01,02,00,00,16,32 

1090 

DATA 

1032 

DATA 

01,02,00,00,00,32 

1 092 

DATA 

1034 

DATA 

01,00,04,00,00,00 

1094 

DATA 

1 036 

DATA 

01,00,04,08.00,00 

1096 

DATA 

1038 

DATA 

01,00,04,08,16,00 

1098 

DATA 

1 040 

DATA 

01,00,04,08,16,32 

l 100 

DATA 

1042 

DATA 

01,00,04,08,00,32 

1 102 

DATA 

1 044 

DATA 

01 ,00,04,00,16,00 

1 1 04 

DATA 

1046 

DATA 

01,00,04,00,16,32 

1 106 

DATA 

1048 

DATA 

01,00,04,00,00,32 

1 108 

DATA 

1050 

DATA 

01,00,00,08,00,00 

1110 

DATA 

1052 

DATA 

01,00,00,08,16,00 

1112 

DATA 

1054 

DATA 

01,00,00,08,16,32 

1114 

DATA 

1056 

DATA 

01,00,00,08,00,32 

1116 

DATA 

1058 

DATA 

01,00,00,00,16,00 

1113 

DATA 

1060 

DATA 

01,00,00,00,16,32 

1 120 

DATA 

1062 

DATA 

01,00,00,00,00,32 

1122 

DATA 

1 064 

DATA 

00,00,00,00,00,00 

1 124 

DATA 

1066 

DATA 

00,02,00,00,00,00 

1 126 

DATA 


00,02 
00,02 
00,02 
00,02 
00,02 
00,02 
00,02 
00,02 
00,02 
00,02 
00 , 02 
00,02 
00,02 
00,02 
00,02 
00,00 
00,00 
00,00 
00,00 
00,00 
00,00 
00,00 
00,00 
00,00 
00,00 
00,00 
00,00 
00,00 
00,00 
00,00 


,04,00,00 
,04,08,00 
,04,08,16 
,04,08,16 
.04,08,00 
,04,00,16 
,04,00,16 
,04,00,00 
, 00 , 08,00 
, 00 , 08,16 
,00,08,16 
,00.08,00 
.00,00,16 
,00,00.16 
. 00 , 00,00 
,04,00,00 
,04,08,00 
,04,08,16 
,04,08,16 
,04,08,00 
,04,00,16 
,04,00,16 
,04,00,00 
,00,08,00 
,00,08,16 
,00,08,16 
,00,08,00 
,00,00,16 
,00,00,16 
, 00 , 00,00 


,00 
, 00 
, 00 
, 32 
,32 
,00 
,32 
,32 
,00 
,00 
,32 
,32 
,00 
, 32 
,32 
, 00 
,00 
,00 
, 32 
,32 
,00 
,32 
,32 
, 00 
,00 
,32 
,32 
,00 
,32 
, 321 


VITRINE 

DU 

LOGICIEL 

Yanick BOURREE 


"JOHNY REB - LA GUERRE 
DE SECESSION" 
(LOTHLORIEN/MCC) 

Wargames 

La bataille fait rage autour de 
vous : quelle idée aussi de vou¬ 
loir revivre la guerre de séces¬ 
sion ! Vous pouvez soit être dans 
les rangs des Confédérés, soit 
dans ceux de l'Union. La straté¬ 
gie prime, normal pour un War¬ 
game I Souvenez-vous, dans le 
numéro 10 de THEORIC, nous 
vous présentions 1815 de Cobra 
Soft. Déjà, nous avions remarqué 
les avantages encore trop peu 


exploités de l'ORIC dans ce 
domaine. Une facilité de jeu 
qu'on ne retrouve pas avec les 
petits cartons. Malheureusement, 
le réalisme est limité par l'espace 
mémoire et le temps de calcul des 
combats. On retrouve ces handi¬ 
caps dans ce jeu. Si les différents 
terrains sont représentés, il n'en 
reste pas mois que la réalisation 
globale est nettement inférieure 
à celle produite par Cobra. Ne 
tirez pourtant pas des conclu¬ 
sions trop hâtives : le produit 
reste bon et son principal avan¬ 
tage est la rapidité. Les temps de 
calcul sont supportables, voire 
même rapides ; le déplacement 
des troupes peut s'effectuer dans 
huit directions (N, E, S, O, NE, 
SE, SO, NO). Vous pouvez aussi 
déterminer le nombre d'unités 
des trois corps que vous possé¬ 
dez : artillerie, infanterie, cavale¬ 
rie. Nous avons regretté que les 
villes et le ravitaillement soient 
absents, car le jeu aurait sûre¬ 
ment gagné en intérêt. Au cours 
de la partie, on s'aperçoit bien 
vite que la bataille se résume en 
duel d'artillerie dont on sort mal¬ 
heureusement rarement vain¬ 



queur. La carte empêche d'ail¬ 
leurs un affrontement direct entre 
les deux armées. En effet, cha¬ 
que camp tient, au début du jeu, 
une rive d'un fleuve, et il n'existe 
qu'un seul pont pour le traverser. 
Certes, il reste la natation, mais 
c'est à vos risques et périls ! Est 
déclaré vainqueur le joueur qui 
réussit à capturer le drapeau de 
l'adversaire. Pour envisager la 
victoire, il faudra donc économi¬ 
ser les munitions et ne tirer qu'à 
coup sûr. Ce logiciel, même s'il 
n'est pas très complet, repré¬ 
sente l'idéal pour débuter dans 
les wargames et, pourquoi pas, 
développer son propre jeu... 
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FAITES 
RÉPONDRE 
L'ORIC AU 
TÉ LÉPHO NE 

AUoi 
UNE 

DETECTIOI 
DE SONNERIE 
POUR 

LA CARTE SERIE 




J La face avant avec une led de présence 

du 5 V et la led de détection de sonnerie. 

usqu'a présent, tous les programmes d'application de la carte 
série avec le Minitel nécessitaient la présence de deux person¬ 
nes au bout du fil. Il fallait bien quelqu'un pour lancer et pour 
arrêter le programme. 

Ce petit montage, associé à la carte série, permettra à l'ORIC de détec¬ 
ter un appel téléphonique afin de lancer automatiquement un pro¬ 
gramme. Celui-ci pourra être, par exemple, un répondeur Vidéotext 
ou encore un petit serveur mono voie. 


LE MONTAGE 

Son but est de fournir un niveau 
logique 0 en présence d'une son¬ 
nerie. Ce signal sera appliqué sur 
la patte 1 7 de l'UART (DSR), qui 
n'est pas utilisé pour la liaison 
avec le Minitel. L'état de cette 
entrée est alors reflété par le bit 
6 du registre d'état. Précisons 
que le DSR (Data Set Ready) est 
initialement utilisée dans la ges¬ 
tion d'une liaison RS 232. 

Pour les lecteurs intéressés, voici 
quelques détails sur le fonction¬ 
nement de ce montage : 

Quand la ligne est libre, celle-ci 
véhicule une tension de 48 V 
continue. Cette tension est blo¬ 
quée par la présence des deux 
condensateurs Cl et C2. 

Le signal de sonnerie est une ten¬ 


sion alternative d'une fréquence 
de 50 Hz et d'une amplitude de 
plusieurs dizaines de volts. Celle- 
ci est alors redressée par PI puis 
filtrée par C3 avant d'être mise 
à un niveau convenable d'environ 
5 V à l'aide de la diode zéner Dz. 
Afin de rendre ce montage électri¬ 
quement indépendant de l'UART, 
la liaison finale est assurée par le 
photocoupleur ICI. Si une surten¬ 
sion survenait sur la ligne, elle ne 
risquerait alors pas d'endomma¬ 
ger la carte série et l'ORIC. 

REALISATION 

Vous trouverez le tracé d'un petit 
circuit imprimé, très facile à 
reproduire. Vous y placerez tous 
les composants en prenant soin 
d'orienter correctement la capa¬ 


cité C3, la diode zéner Dz, le pont 
de diodes PI, sans oublier le pho¬ 
tocoupleur et la diode LED DI. 
Rappelons d'ailleurs que le moins 
d'une diode LED est repéré par un 
méplat. 

Voyons maintenant la liaison 
avec la carte série : 

Le câblage est constitué de 3 
fils : le 5 V, la masse et le signal 
de sonnerie. Pour le 5 V et la 
masse, le plus simple est de se 
reprendre sur les straps (vérifiez 
avant, à l'aide d'un petit contrô¬ 
leur de tension, où se trouvent le 
plus et le moins). 

En ce qui concerne le signal de 
sonnerie, il vous faudra couper la 
piste reliant la patte 1 7 de l'UART 
à la masse, sur la carte série (un 
petit coup de cutter suffira). Sou¬ 
der alors soigneusement le troi¬ 
sième fil sur cette patte, côté cui 
vre. 

Petite remarque : si vous n'avez 
pas encore placé votre carte série 
dans un boîtier, c'est alors l'oc¬ 
casion ou jamais de le faire, en 
prévoyant alors de la place pour 
les deux circuits... 


35 





80 NEXT I 
90 PING: 


END 


'l ‘ J* 



Le câblage 
interne. Une 
led de présence 
du 5 V a été collée 
sur la carte détection 
de sonnerie. 


En ce qui concerne la connexion 
à la ligne téléphonique, munissez- 
vous d'une fiche téléphone gigo¬ 
gne (fiche permettant le branche¬ 
ment d'une autre prise par des¬ 
sus), ainsi que de quelques 
mètres de câble de téléphone. 
Câblez alors la fiche, conformé¬ 
ment au schéma (points 1 et 3), 
sans respecter l'ordre précis pour 
les fils. Soudez ensuite l'extré¬ 
mité du câble sur l'entrée "ligne” 
du circuit imprimé. 

LES ESSAIS 

Première chose : reliez votre 
montage à la ligne téléphonique, 
branchez votre poste de télé¬ 
phone sur la fiche gigogne puis 
vérifiez que la tonalité est pré¬ 
sente. Si tel n'est pas le cas, 
débranchez et vérifiez votre 
carte... 

Tapez ensuite sur l'ORIC 

POKE # 381,00 

PRINT HEX$(PEEK( # 381 )) 

(Adaptez éventuellement ce pro¬ 
gramme à votre décodage 
d'adresse.) 

Ce qui doit vous donner #40 
(DSR au niveau logique 1). Si 
vous obtenez une autre valeur, la 
connexion sur la carte série est 
sûrement fautive. 

Dernière épreuve, rentrez ce petit 
programme Basic, puis faites- 
vous appeler : 

10 POKE # 381,00:POKE #382, 
# 6B:POKE # 383, # 3B 
20 FOR 1 = 1 TO 3 
30 DSR = (PEEK( #381) AND 
#40) 

40 IF DSR = #40 THEN 30 
50 PRINT' SONNERIE ";l 
60 DSR = (PEEK( # 381 ) AND 
#40) 

70 IF DSR = #40 THEN 60 


Au bout de deux sonneries, ce 
programme s'arrêtera en émet¬ 
tant un PING. Pensez, pendant 
cet essai, à vérifier que la LED DI 
s’allume à chaque sonnerie, et 
pensez surtout, à la fin, à décro¬ 
cher le téléphone pour faire part 
à votre correspondant des résul¬ 
tats de vos essais. En effet, ce 
programme ne fait que tester la 
présence de deux sonneries, et il 
faudra, pour une utilisation 
concrète, le faire suivre de la pro¬ 
cédure d'envoi de la porteuse du 
Minitel, afin que votre interlocu¬ 
teur puisse se connecter. Toutes 
ces séquences ont déjà été utili¬ 
sées avec le programme ORIC- 
TEL, que vous pourrez d'ailleurs 
reprendre en partie pour cons¬ 
truire votre propre application. 

NOMENCLATURE DES 
COMPOSANTS 

Résistances : 

RI : 10 kQ 1 W 
R2 : 470 il 1/4 W 
R3 : 2,-2 ki2 1/2 W 
Condensateurs : 

Cl et C2 : 2,2 pF 250 V non 
polarisées 


C3 : environ 10 /<F 100 V 

Semi-conducteur 

DI : diode LED rouge 

ICI : photocoupleur type CNY, 

17, CNX 35 ou équivalents 

Dz : diode zéner de 5,6 V 1/2 W 

typee BZX 85C 

PI : pont redresseur type BY 
159-400 ou équivalents. 

Divers : 

Une prise téléphonique gigogne 
et quelques mètres de câble télé¬ 
phonique. 

DERNIERES REMARQUES 

Respectez scrupuleusment les 
indications de puissance des 
résistances ainsi que les tensions 
des condensateurs, pour un bon 
fonctionnement du montage. 
Notez qu'il est possible de ne 
mettre qu'un seul des deux 
condensateurs Cl et C2. Ne pas 
oublier alors de placer un strap en 
remplacement. 

Ce circuit ne consommant prati¬ 
quement rien en absence de son¬ 
nerie, on pourra sans aucun pro¬ 
blème le laisser branché sur la 
ligne téléphonique. 


Une ligne téléphonique est à votre disposition, vous met¬ 
tant en contact direct avec la rédaction. Ceci est un ser¬ 
vice sans égal ! Respectez simplement les horaires et les 
jours que nous vous indiquons : 

MERCREDI de 9 h à 12 h et de 14 h à 17 h. 
VENDREDI de 9 h à 12 h seulement. 

Tout appel en dehors de ces créneaux sera refoulé : ne 
dépensez pas inutilement votre argent ! 

Le numéro 99*52»98» 11» 
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Ligne 

téléphonique 


La carte de détection de sonnerie dans son contexte. 

Cette configuration peut servir de base à la création 
d’un petit serveur Vidéotext. 





































































































Un programme imaginé ei réalisé par 

Bertrand BROCARD avec Marianne ALISON 


1938. 

Tandis que la situation 

S/ » ' 

t politique s aggrave 
v ên'Europe, au Havre 
le plus grand et le 
plus luxueux paquebot 
du monde appareille pour 
New-York. A son bord, 
une clientèle fortunée et 
insouciante... et pourtant un 
drame va se jouer pendant 
la traversée. Vous vous trouverez 
ainsi projeté au cœur de la plus 
incroyable histoire d'espionnage 
qui permit aux alliés de gagner 
la seconde guerre mondiale 
5 ans plus tard... 


Cobra Soft BP 155 71104 Chalon sur Saône Cedex 







«MEURTRES SUR L’ATLANTIQUE» pour ORIC ? 

«Attention, chef-d’œuvre... On ne peut faire plus complet et plus soigné...» (Soft & Micros) 

«Un bon logiciel qui vaut largement n’importe quel polar... A ne pas manquer !» (CPC) 

«Voulez-vous entrer dans la peau d'Hercule Poirot ou Sherlock Holmes ?» (Amstrad Magazine) 

«Le joueur va pouvoir s’éclater... Une présentation graphique en béton.» (Hebdogiciel) 

«Meurtres sur l’Atlantique est bien plus qu’un logiciel...» (Micro-Systèmes) 

«L’auteur de Meurtre à grande vitesse récidive... Richesse 9/10» (Scienœs et Vie Micro) 

«Toujours plus fort... Génialement réalisé... Une intrigue ficelée de main de maitre...» (Tilt) 

«Un nouveau jeu génial... On croit réver... A ne pas manquer !» (jeux et Stratégie) 

«Un programme de style original particulièrement bien réussi !» (L’Ordinateur Individuel) 

«Un jeu fascinant...» (Microstrad) - «C’est fabuleux !» (Nouvel Observateur) 

Voilà comment la presse a salué de façon unanime le logiciel vedette de COBRA SOFT ! Pas besoin de commentaires... 
Compte-tenu des problèmes de distribution des logiciels pour Oric, et pour répondre à de nombreuses demandes, 
COBRA SOFT a décidé d’offrir aux lecteurs de THÉORIC l’occasion exceptionnelle de pouvoir disposer de Meurtres sur 
l’Atlantique en version cassette ORIC-1 et ATMOS en participant à une édition sous forme de souscription. 
Utilisez le bon ci-dessous. 

BONDE SOUSCRIPTION «MEURTRES SUR L A TLANTIQUE» ORIC 

OUI, je désire participer à la souscription pour l’édition de la version ORIC de Meurtres sur l'Atlantique. G-joint ma 
participation de 250 francs, sous forme de chèque. 

J'ai bien noté qu’elle me donnera droit à une version originale et numérotée du logiciel Meurtres sur l’Atlantique 
en version ORIC-1 et ATMOS (cassette). Si au 31 décembre 1986 le nombre de participants à la souscription est in¬ 
férieur à 500, mon chèque me sera retourné. (Aucun chèque ne sera encaissé avant expédition). 

NOM et Prénom.. 

Adresse complète et détaillée... 


Code postal.Ville. 

Bon de souscription à retourner à COBRA SOFT BP 155 - 71104 Chalon-sur-Saône Cedex - N’oubliez pas le chèque... 


nute... dernière minute... dernière minute... dernière minute... dernière minute... dernière 


NOUVEAUTES : A.T.M de COBRA SOFT 

Voici un nouveau jeu d'arcade pour Oric-1 et Atmos : A.T.K. 

Il s’agit d'un jeu d'action comprenant 4 épreuves : vous devrez combattre en 
l’air, sur terre et dans la mer (d’où le nom...). 

Dans le premier tableau, vous serez aux commandes d'un avion supersonique avec 
lequel vous devrez traverser une nuée de mongolfières ennemies. 

Ensuite, au poste de pilotage d’un char, vous devrez franchir un terrain rocheux 
bombardé par des avions. 

Enfin, la dernière épreuve vous verra commandant d’un sous-marin dans une mer 
infestée de mines et batiments adverses. 

9 niveaux de difficulté, animations sonore et graphique. 100% langage machine. 

Ce jeu très rapide comblera les amateurs de bons jeux d’arcade ! 

SI vous ne le trouvez pas chez votre revendeur habituel, commandez-le par courrier 
en écrivant à : 

COBRA SOFT BP 155 - 71104 Chalon-sur-Saône Cedex 

Joignez votre réglement par chèque : 130 F (120 F + 10 F de part). 

Aucun envoi en contre-remboursement. 
















ECRAN 

Combien de fois avez-vous maudit votre 
ORIC préféré, car il ne vous offrait pas un 
écran suffisamment grand. THEORIC vous 
apporte la solution avec ce programme. 



Il vous permettra de disposer 
d'un écran de 28 lignes de 59 
colonnes, ce qui n'est déjà pas 
mal, surtout pour les nombreux 
possesseurs d'imprimante. 

Vous pourrez ainsi créer vos 
pages et les éditer sur l'impri¬ 
mante de votre choix, il marche 
sur toutes. 

La mise en marche est assez sim¬ 
ple. Il faut seulement connaître 
quelques points particuliers : 
L'appui sur RETURN (retour à la 
ligne) n'efface pas à l'écran, mais 
en mémoire, tous les caractères 
à droite sur la même ligne. S'il y 
a des caractères à droite, il est 
préférable d'utiliser les flèches du 
curseur. 

Virtuoses du clavier, attention ! 
Le programme étant en Basic, il 
a parfois (mais rarement...) des 
difficultés à suivre. Ceci n'excu¬ 
sera pas pour autant vos fautes 
de frappe... 

Le mode d'emploi est inclus dans 
le programme. 

Bruno BOUCHAUD 



CE PROGRAMME PERMET DE TRANSFORMER L’ECRAN DE L’ORIC 
EN 59 COLONNES ET 28 LIGNES CE OUI. RECONNAISSONS-LE 
N’EST PAS BANAL. BIEN OUE DEJA UTILISE DANS UN LOGICIEL 
COMMERCIALISE. 

LE PRINCIPE RETENU EST SIMPLE...IL SUFFISAIT D’Y PENSER 
ON A TOUT SIMPLEMENT REDEFINI LES CARACTERES EN 3X6 POINTS. 


IL EST ILLUSTRE ICI AVEC UN MINI EDITEUR DE TEXTE OUI P 
PERMET DE COMPOSER. SAUVEGARDER. IMPRIMER DES PAGES DE 28 
LIGNES. 

LE PROGRAMME. ECRIT EN BASIC. CONSTITUERA UNE LIMITATION 
DE VITESSE POUR LES VIRTUOSES DU CLAVIER... 

L’IDEE POURRA ETRE RETENUE ET LE PRINCIPE INCORPORE AU 
SEIN D’UN DE VOS PROGRAMMES. 


L’EXPERIENCE MONTRE OU’IL EST DIFFICILE D’ALLER AU-DELA 
DE 59 A 60 COLONNES CAR LE TEXTE DEVIENT ALORS ILLISIBLE. 
SURTOUT SUR CERTAINS ECRANS EN COULEUR. 



1 ' 

2 ' 

3 ' 

4 ' 

5 ' 

6 ' 

7 ' 

8 ' 

9 ' 

10 ' 
1 1 ' 
12 ' 

13 ' 

14 ' 

15 ' 

16 ' 


* i: i: t t 1ttt i: t tttitttttt t * t * 1tt 


ttt 


** 


t t THEORIC vous présente * 

* * t 

* * ECRAN 59X28 * 

* t t 

t t AUTEUR î BOUCHAUD Bruno * 

* * termine le 12 juillet 86 * 

t tt tt 

* * * 

** t 

111111 <(. 111 <111111L L 111 <(. 11111 



17 PRINTCHRi<17) 

20 PAPERO:INK7:CLS 
100 GOSUB10000 

110 FORI=0TO27:F0RJ=5T037 STEP8:P0KE4 
8000+1I*40) + J,32:NEXT J,I 
115 WAIT100 

120 FORI=1T039:POKE47999+1,32:NEXT 
130 FORI=1T053:PRINT:NEXT 
135 PAPER3:INK1 

140 PRINTTAB<14)1CHR*(27);CHR$(4);”Je 
cran 59X28” 

145 PRINTTAB< 14 ) ,:CHR$ <27) ;CHRI (4 ) ; ’’ Je 
cran 59X28“ 

150 PR INT :PRINT :PRINT : PRINT 
160 PRINT" ce programme va vous per 
mettre de" 
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170 PRINT"disposer d'un écran texte d 

418 IFA> 7ANDA <12THEN21200 

e 59 colon" 

420 IFA=127ANDX> 0THENCHARCU,0,0:CURMO 

180 PRINT"nes et 28 lignes." 

V-4,C),0:PO=PO-1 :CHARPEEK(PO) ,0,0: X=X-4 

190 PRINT" l'ecriture se fait en mo 

425 IFA=127THEN415 

de haute" 

4 30 I FA=13THEN2 = X/4 : FORI=POTOPO + 59-Z: 

200 PRINT"reso1 ution graphique et ave 

POKEI,32 :NEXT:PO=PO+59-2:X=0:Y=Y+7 

c les c a-" 

4 40 IFA=13THENCHARCU,0,0:CURSETX,Y,0 : 

210 PRINT"racteres majuscules redefin 

GOT0415 

is sur une" 

445 CHARCU,0,0 

220 PRINT"matrice de 3X6 caractères." 

446 CURSETX,Y,3 

230 PRINT" tout ce que vous écrivez 

447 IFA=32THENCHAR127,0,OELSECHARA.0, 

est s a u - " 

1 

240 PRINT"garde en mémoire et peut et 

450 POKEPO,A :PO=PO+1 :X=X+4 

re ensuite" 

460 IFX=236THENGURSET0,Y + 7,3 :CHARCU,0 

250 PRINT"edite sur imprimante." 

,1:FL=l:X=0:Y=Y+7 

260 PRINT" l'édition est exécutable 

465 IFX<236THENCURSETX,Y,3 :CHARCU,0,1 

sur tout" 

: FL= 1 

270 PRINT"type d'imprimante, vous pou 

470 CURSETX,Y,3 

rrez modi-" 

480 GOT0415 

280 PRINT"fier cette partie afin de 1 

9999 END 

'adapter" 

10000 REM 

290 PRINT"a votre modèle et suivant v 

10010 REM REDEFINITION DES CARACTERES 

os besoins" 

10020 REM 

300 PRINT:PRINT:PRINTTAB(9)"appuyez s 

10021 FORI=1TO40:POKE47999+I,32:NEXT: 

ur une touche" 

PA= 1 7 

310 GETAt 

10022 FORI=0TO27: FOR J=1T040STEP4:POKE 

315 PAPERO 

48000+(I*40) + J,PA :PA=PA+1 

320 FORI=1TO30:PRINT:NEXT 

10024 IFPA=24THENPA=17 

330 PAPER5: INK6: PRINT : PRI NT 

10026 NEXTJ,I 

335 PRINTTAB111),:CHR$(27),:CHR$ < 4))"Jt 

10030 FORI=46344T046839 

ouches spéciales" 

10040 READA:POKEI,A :NEXTI 

336 PRINTTABC 1 1 ) ,:CHR* (27) ;CHR* ( 4 ) J " Jt 

10050 FORI=#B400 + 8*96TOI +7 :READA:POKE 

ouches spéciales" 

I,A :NEXT 

340 PRINT;PRINT;PRINT:PRINT 

10052 FORI=#B400 + 8*127TOI+7 :READA:POK 

350 PRINT" voici les touches specia 

El,A:NEXT 

les 5 " 

10055 RETURN 

355 PRINT:PRINT 

10060 REM DATAS 

360 PRINT:PRINT"shif t droit : chargem 

10070 DATA16,16,16,16,0,16,0,0 

en t ou sauveg." 

10071 DATA40,40,0,0,0,0,0,0 

370 PRINT:PRINT"return : retour a la 

10072 DATA40,56,40,40,56,40,0,0 

1 igné." 

10073 DATA24,40,48,24,40,48,0,0 

375 PRINT: PRI NT"de 1 : efface le carac 

10074 DATA40,8,16,16,32,40,0,0 

tere precedent." 

10075 DATA16,40,16,40,32,24,0,0 

380 PRI NT :PRINT"f une t : efface l'ecra 

10076 DATA16,16,0,0,0,0,0,0 

n . ” 

10077 DATA8,16,16,16,16,8,0,0 

385 PRINT:PRINT"ctr1 : sortie et poss 

10078 DATA32,16,16,16,16,32,0,0 

ibilite d'édition." 

10079 DATA40,40,40,16,40,40,0,0 

386 PRINT:PRINT:PRINT 

10080 DATA16,16,56,56,16,16,0,0 

390 PRINT:PRINTTAB( 9 )"appuyez sur une 

10081 DATA0,0,0,16,16,32,0,0 

t ouch 0 " 

10082 DATA0,0,0,56,0,0,0,0 

400 FORI=30000T031652STEP2 : DOKEI,8224 

10083 DATAO,0,0,0,8,0,0,0 

: NEXT 

10084 DATAS,8,16,16,32,32,0,0 

401 GETA$ 

10085 DATA16,40,40,4,0,40,16,0,0 

405 PAPER1 ! INK4 : HIRES 

10086 DATA16,48,16,16,16,56,0,0 

410 X=0:Y=0:P0=30000:CU=96:FL=0 : C0=0 

10087 DATA16,40,8,16,32,56,0,0 

415 A=PEEK(#209) 

10088 DATA56,8,16,8,8,48,0,0 

416 IFA=1620RA=1670RA=165THEN20000 

10089 DATA8,24,40,56,8,8,0,0 

417 Kt =KEY $ ! IFK* = " "THEN23200 ELSEA = AS 

10090 DATA56,32,56,8,40,16,0,0 

C(K$ ) 

10091 DATA24,32,48,40,40,16,0,0 
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10092 DATA56,8,16,32,32,32,0,0 

R INT” votre choix = = >".: 1 

10093 DATA 16.40,16,40,40,16,0,0 

20090 GETA* ! IFA* O "1"ANDA* O "2"THEN20 

10094 DATAI 6,40,40,24,8,48,0,0 

090 

10095 DATAO,0,16,0,16,0,0,0 

20100 PRINTA* 

10096 DATAO,16,0,16,16,32,0,0 

20105 IFA* = " 2 " THEN20200 

10097 DATAO,8,16,32,16,8,0,0 

20110 IF A * = "1"THENCLOAD" " :HIRES:X = 0:Y 

10098 DATAO,56,0,56,0,0,0,0 

= 0 

10099 DATAO,32,16,8,16,32,0,0 

20115 CURSET0,0,3 

10 100 DATA 16,40,8,16,0,16,0,0 

20120 FORI=30000T031651 

10101 DATA24,32,56,56,40,24,0,0 

20130 CHARPEEK ( I) ,0,1 :CURMOV4,0,0 : X=X 

10102 DATAS6,40,40,56,40,40,0,0 

+ 4 : I FX=236THENY=Y+7 : X=0 : CURSETX,Y,0 

10103 DATA43,40,48,40,40,48,0,0 

20140 NEXTI 

10104 DATA24,32,32,32,32,24,0,0 

20150 G0T0410 

10105 DATA48,40,40,40,40,48,0,0 

20200 CLS:PRINT"APPUYEZ SUR UNE TOUCH 

10106 DATA56,32,48,32,32,56,0,0 

E POUR COMMENCER" 

10107 DATAS6,32,48,32,32,32,0,0 

20210 PRINT : PRINT"LA SAUVEGARDE ...": G 

10108 DATA24,32,32,40,40,24,0,0 

ETA* 

10109 DATA40,40,56,40,40,40,0,0 

20220 CSAVE"PAGE",A30000,E31652 

10110 DATA56,16,16,16,16,56,0,0 

20230 HI RES ; GOT0400 

10111 DATAS,B,8,8,40,16,0,0 

21200 REM TOUCHES FLECHEES 

10112 DATA40,40,48,40,40,40,0,0 

21210 IFA = 8ANDX <> OTHENPO=PO-1 :X = X-4 

10113 DATA32,32,32,32,32,56,0,0 

21220 IFA=9ANDX <> 232THENPO = PO+1 :X = X + 4 

10114 DATA40,56,40,40,40,40,0,0 

21230 IFA=10ANDY < 1B9THENY=Y + 7 : P0=P0 + 5 

10115 DATA48,40,40,40,40,40,0,0 

9 

10116 DATAS6,40,40,40,40,56,0,0 

21240 IFA=11ANDY <> 0THENY = Y-7:P0=P0-59 

10 117 DATA48,40,40,48,32,32,0,0 

21245 CHARCU,0,0 

10118 DATAI 6,40,40,40,48,24,0,0 

21250 CURSETX,Y,3 :CHARCU,0,1:GOT0415 

10119 DATA56,40,48,48,40,40,0,0 

23000 REM SORTIE ET EDITION POSSIBLE 

10120 DATA24,32,16,8,8,48,0,0 

23010 TEXT:PAPER6:INK5 

10121 DATA56,16,16,16,16,16,0,0 

23020 PR INT : PRINT : PRINT : PR INT : PRINT : P 

10122 DATA40,40,40,40,40,56,0,0 

RINT:PRINT"VOULEZ-VOUS SORTIR VOTRE PA 

10123 DATA40,40,40,40,40,16,0,0 

GE SUR " 

10124 DATA40,40,40,40,56,40,0,0 

23040 PR INT:PRINT"IMPRIMANTE ?????" 

10125 DAT^MO,40,40,16,40,40,0,0 

23050 GETAt:IFA*<>"0"ANDA*O"N"THEN23 

10126 DATA40,40,40,16,16,16,0,0 

050 

10127 DATA56,8,16,16,32,56,0,0 

23060 IFA*="N"THENGLS:PRINTCHR*(17):E 

10128 DATA56,32,32,32,32,56,0,0 

ND 

10129 DATA32,32,16,16,8,8,0,0 

23065 LPRINTCHR*(13) 

10130 DATA56,8,8, 8 , 8 ,56,0,0 

23066 P0KE#256,59 

10131 DATAI 6,40,16,16,16,16,0,0 

23070 FORI=30000T031652 

10132 DATAO,0,0,0,0,0,56,0 

23090 LPRINTCHR*(PEEK(I));:NEXT 

10133 DATA60,60,60,60,60,60,0,0 

23100 REPEAT 

20000 REM TOUCHES SPECIALES 2 

23110 PLAY0,2,3,4IWAIT100:PLAYO,0,0,0 

20005 PRINTA, 

:WAIT100 

20010 IFA=165THENPRINT : PRINT"PATIENTE 

23120 UNTILKEY* <>"" 

Z QUELQUES PEU":GOT0400 

23130 HIRES :G0TO410 

20020 IFA=162THEN23000 

23200 REM CLIGNOTEMENT DU CURSEUR 

20030 PRINT:PRINT:PRINT"vous confirme 

23210 CO=CO+l 

z la sàuv. ou le char g.?":GETA* 

23220 IFX=236ANDCO=5ANDFL=1THENCURSET 

20035 IFA* <>"0"THENPRINT:PRINT:PRINT: 

0,Y+7,3 :CHARCU,0,0:C0=0:FL=0:CURSETX,Y 

G0TO415 

,3 

20040 TEXT:PAPER3 : INK1 

23230 IFX=236ANDCO=5ANDFL=OTHENCURSET 

20050 PRINT : PRINT : PR I NT : PRI NT : PRI NT " v 

0,Y+7, 3: CHARCU,0,1:CO=0:FL=1:CURSETX,Y 

ous avez la possibilité de 

,3 

20060 F'RI NT : PRINT : PR I NT" e 1 § pour 

23240 IFX <236ANDCO=5ANDFL=1THENCURSET 

charger une page." 

X ,Y, 3 : CHARCU,0,0:CO=0 : FL=0 

20070 PRINT : PRINT : PRINT " °2§ pour 

23250 IFX <236ANDCO=5ANDFL=OTHENCURSET 

sauvegarder celle-ci." 

X, Y,3:CHARCU,0,1:CO=0:FL=1 

20080 PRINT : PRINT : PR I NT : PRI NT : PR I NT : P 

23260 G0T041 5l 


42 










NOTE-CALC 


Pascal JANCOURT 

Q ui sont les principaux utilisateurs de l'ORIC ? Les 
lycéens et les étudiants, bien sûr i A quelle époque 
de l'année sommes-nous ? Au premier trimestre... 
alors pourquoi ne pas envisager une gestion des notes 
sur l'ORIC, secondé d'un JASMIN ? NOTE-CALC occupe 
13 Ko de mémoire et vous permettra de suivre au plus 
près l'évolution de vos résultats scolaires. 


NOTE-CALC a été développé sur 
l'ensemble ATMOS-JASMIN. Il 
conviendra de l'adapter pour une 
utilisation sur MICRODISC sous 
SEDORIC ou DOS VI... A la pre¬ 
mière utilisation, il faudra bien 
entendu créer un fichier. Les 
directives vous seront données 
par une succession de "menus”. 
Dans le cas d'une erreur dans 
l'utilisation du programme et des 
disquettes, le logiciel comprend 
un sous-programme "Analyse 
d'erreur" (lignes 23100 à 
23290). 

Plutôt que de gérer les notes 
matière par matière, elles ont été 
regroupées par options : littérai¬ 
res ou scientifiques... Ceci cor¬ 
respond au premier menu. 

Pour accéder au second menu, 
choisir l'option "Lecture" en pre¬ 
nant soin de désigner une matière 
dont le fichier contient des notes. 
Si tous les fichiers sont vides, on 
retourne au menu... 

L'option 1 permet d'analyser le 
fichier qui vient d'être lu. 

Une analyse comprend : 

— Classement par date (celle-ci 


est demandée avec l'ajout d'une 
note). Cela permet dans le cas où 
les résultats ne sont pas donnés 
dans le même ordre que celui 
fourni par l'élève (quand il rend 
les devoirs). 

C'est un classement à bulle clas¬ 
sique mais adapté pour les dates. 

— Le graphe (ne se fait qu'à par¬ 
tir de 3 notes). C'est une option 
primordiale. Elle permet à l'élève 
de voir en HIRES la courbe de ses 
notes. 

L'analyse fournit aussi : 

— la meilleure et la plus mauvaise 
note ainsi que les dates, 

— le nombre total de notes, 

— la moyenne des notes. 
L'option "Analyse de tous les 
fichiers" permet, après lecture, 
l'analyse (triple car il y a 3 séries 
de matières) des notes (voir ci- 
dessus). 

L'option graphe des trois notes 
est très intéressante. Sur une 
même page Hires, les 3 graphes 
des notes permettent de vision¬ 
ner en même temps toutes les 
séries et donc de voir les progrès 
par rapport aux autres séries. 


Remarquez que chaque courbe a 
un tracé très différent (les poin¬ 
tillés) permettant, grâce à la 
légende, de se reconnaître. 
Encore quelques remarques : 

— Le pas du graphe peut être 
modifié (il est calculé à chaque 
série de notes). 

Lignes 211 50-21 712 
Le nombre maximal de notes est 
illimité ; on peut le modifier. 
Soit n le nombre de notes : 

1 DIM NA(3,n),DI$(3,n),HU(3,n), 
RU$(n x 3),... 

Le programme s'axe en 19 par¬ 
ties : 

0-16 : données 
1 97-290 : menus 
300-360 : création de fichier 
400-615 : ajout aux fichiers 
700-940 : lecture des fichiers 
940-1010 : sous-menu 
1020-1500 : affichage du fichier 
en mémoire 

1 500-21200 analyse de tous les 
fichiers 

20000-20100 : affichage dis¬ 
quette 

20100-20151 : affichage dis¬ 
quette par matière 
20152-20252 : données diver¬ 
ses 

20252-20445 : listes dès notes 
20448-20740 : classement à 
bulle par date 

20750-21020 : liste par matière 
21050-21950 : graphe 
22700-22740 : fin 
22800-22990 : présentation 
23000-23230 : erreur de disk 


0 POKE#489,0 : !ERSET: !ERR GOTOl 

1 DIM NA(3,30),DIt(3,30),HU(100),RU* < 
100) ,OC(25),WA(25),NO< 25) 

2 DA* = "":FORA=1T03: N(A)=20 :NEXTA 

3 DATA3,10,10,3,8,10,3,10,70,3,8,12,3 
,6,12,3,5,12,3,3,12,3,2 

4 DATA90,3,3,90,3,10,10,3,8,10,3,10,7 
0,3,5,40,3,6,40,3,2,40 

5 DATA3,3,75,2,10,10,2,8,10,2,10 

6 DATA70,2,8,12,2,6,12,2,5,12,2,3 

7 DATAI 2,2,2,90,2,3,90 

8 FORI * 1T025:READOC(I),NO(I),WA <I): NE 
XTI 

9 GOSUB22800 

10 ' ******************************** 

11 ' DONNEES 

1 2 '******************************** 
15 DATAMATH PHYSIQUE,ALLEMAND ANGLAIS 
FRANÇAIS 


16 DATA HISTOIRE GEOGRAPHIE Sc ECO 
100 G0SUB20150 

197 '**************************** 

198 ' MENU 

199 '**************************** 

200 CLS:PAPERO: INK2 

210 PRINTCHR*(4):PRINTSPC<15)CHR* <27) 
" A "CHR ♦ < 27 ) * N B M MENU " : PR I NT : PR I NT 
220 PRINT : PRINT : PRINT IPRINTCHR* < 27)"G 
"CHR* (27)"J" " 1 ... CREER LES FICHIERS" 
230 PRINT : PRINT : PRINT :PRINTCHR* < 27)”G 
"CHR* < 27)"J"“2 ... LIRE LES FICHIERS" 
240 PRINT : PRINT : PRINT : PRINTCHR *(2 7)“G 
"CHR*(27) “J""3 ... AJOUT AUX FICHIERS" 
250 PRI NT : PR I NT : PRI NT : PRINTCHR*(27)"G 
"CHR*(27)"J""4 ... FIN": PRINTCHR *(4) 
260 PRINT®10,25;"VOTRE CHOIX :",:INPU 
T AX 



43 




270 I FAX> 40RAX<1THEN200 
280 CLS 

290 ONAXGOTO300,700,400,22700 

300 '******************************** 

301 ' CREATION DES FICHIERS 

302 '******************************** 
310 PRINT:PRINTCHR* <4)CHR*(27)"A"CHR* 

<27)"N M SPC<3)"CREATION DES FICHIERS"CH 
Rt (4) 

320 GOSUB20000 

330 FORB=1T03 

34 0 !CREATENT*(B): !CLOSEB 

345 \ERR GOTO 23130 

350 NEXT B 

360 PING :GOTO20O 

400 '****************************** 
402 ' AJOUT AUX FICHIERS 
405 '****************************** 
410 PRINT:PRINTCHR» <4)CHR*(27)"A"CHR$ 
(27)"N"SPC<3)"AJOUT AUX FICHIERS"CHR*< 
4 ) 

420 GOSUB20100 

430 PRINT®10,25: "VOTRE CHOIX : " , INPU 
TAX 

450 IFAX> 30RAX <1THEN4 00 
460 CLS:PRINT:PRINTCHR*(4)CHR*(27)"A" 
CHR*<27)"N"SPC<3)"AJOUT AUX FICHIERS"C 
HR»(4) 

470 PLOT2,5,"CRITERE :":PLOT2,7,MA* < A 
X) 

471 PLOTO,14,18:PL0T1,14,0 

480 PRINT®4, 14; "NOTE : M ,îINPUTNO 

490 IFNO <OORNO> 20THEN460 

491 PLOTO,17,18:PLOT1,17,0 

500 PRINT®4,17;"DATE < J JMMAA ) :",:INP 

UTDA* 

510 IFLEN(DA♦)< > 60RVAL(LEFT♦(DA♦,2))> 
31ORVAL(MID» < DA*,3,2))>12THEN500 
520 PRINT®4,20;"VALIDATION <0/N) 
INPUTY* 

530 IFY* <>"0"THEN200 
540 GOSUB20000 

560 !OPENNR» <AX): !APNDAX: !WRITEAX'NO, 
DA*: !CLOSEAX 
565 !ERR GOTO 23130 
570 PING :GOT0200 

700 '**************************** 

702 ' LECTURE DES FICHIERS 

704 '**************************** 

710 PRINT : PRINTCHR* < 4)CHR♦< 2 7)"A"CHR * 
<27)"N"SPC<5)“LECTURE DES FICHIERS"CHR 
« ( 4 > 

720 GOSUB 20100 

730 PRINT®10,25;"VOTRE CHOIX : M ,:INPU 
TREX 

7 40 IFREX> 30RREX <0THEN730 
760 GOSUB20000 
860 !OPENNR*<REX) 

870 !REWINDREX 

880 ! WHEREREX : S= < DEEK (# 4 8F)-1 )/2 

882 SU(REX)=S 

885 IFS<1THEN940 

890 FORDO=1TOS 

900 !TAKEREX'NO,DA♦ 

910 NA(REX,DO)=NO: DI *(REX,DO)=DA* 


915 !ERR GOTO 23130 
920 NEXT DO 
930 'CLOSEREX 
933 CH=REX 

935 FORL=1T05STEP2:GOSUB20450:NEXTL 
940 '**************************** 

942 ' SOUS MENU 

944 ***************************** 

950 CLS: PR INTCHR*(4) : PRINTSPC(15)CHR* 
(27)"A"CHR*(27)"N""SOUS MENU":PRINT:PR 
INT 

960 PRINT:PRINT:PRINT:PRINTCHR*(27)"G 
"CHR*(27)"J""1 ANALYSE DU FICHIER EN M 
EMOIRE" 

970 PRINT:PRINT:PRINT:PRINTCHR*(27)"G 
"CHR*(27)"J""2 ANALYSE DE TOUS LES FIC 
HIERS" 

980 PRINT: PRINT : PRINT : PRINTCHR*(27)"G 
"CHR*(27)"J""3 RETOUR AU MENU":PRINTCH 
R* (4 ) 

990 PRINT®10,25; "VOTRE CHOIX :",:INPU 
TEX 

1000 IFEX> 30REX<1THEN940 
1005 UY=1 

1010 CLS:ONEXGOTOl020,1500,200 

1018 '***************************** 

1019 'ANALYSE DU FICHIER EN MEMOIRE 

1020 '***************************** 
1030 PRINTCHR*(4): PRINTCHR*(27)"A"CHR 

♦ < 27)"N""NOTECALCDU FICHIER EN MEMOIRE 
":PRINTCHR*(4) 

1035 MI=20 :MA = 0 

1040 PRINT®3,5 ; "ce fichier est celui 
des notes :" 

1050 PRINTCHR*(4):PRINTCHR*<27)"G"CHR 
*(27)"J"MA*(REX) 

1060 PRINTCHR* < 4): PRINT®1,10;“******* 
******************************" 

1070 PRINT®3,11;"nombre de notes du f 
ichier : ", S 

1075 IFS<1THENPRINT®5,17;"FICHIER VID 
E (taper une touche)":PING :GETA*:G0T09 
40 

1080 F0RB=1TOS 

1090 IFNA(REX,B)> MATHENMA=NA(REX,B):D 
X=B 

1110 NEXTB 

1120 PRINT®3,13;"meilleure note :",MA 
:PRINT®3,14;"le ",DI♦(REX.DX) 

1130 FORB=1TOS 

1140 IF NA < REX,B) <MI THEN MI=NA(REX,B 
):DN=B 
1160 NEXTB 

1170 PRINT®3,16;"plus mauvaise note : 
",MI:PRINT®3,17;"le ",DI»(REX,DN) 

1180 FORB=1TOS 

1190 MOY(REX)=MOY(REX)+NA(REX , B ) 

1200 NEXTB 

1210 MOY<REX) = INT(MOY(REX)*10/S)/10 
1220 PRINT : PRINT : PRINTCHR♦< 4):PRINTCH 
R* < 27 >"G”CHR*(27)"J“"1 a moyenne est : 

"MOY(REX) : PRINTCHR*(4) 

1225 PRINT 

1230 PRINT:PRINT"voulez-vous : 1 la 1 
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iste des notes" 

1845 FORL=1T05STEP2 

1240 PRINTSPCI15)"2 le graphe des not 

1846 GOSUB20600 

es" 

1847 NEXTL 

1245 PRINTSPC(15)"3 revenir au menu" 

1850 FORA=1T03 

1250 GETHH 

1855 IFSU < A)<1THENGOTOl890 

1260 IF HH<> 1ANDHHO2ANDHH<>3THEN1250 

1860 FORB=1TOSU(A) 

1277 IFHH=3THENM0Y(RE%)=0:MA=0:MI=20: 

1870 IFNA(A,B)<N < A)THENN(A)=NA( A , B ):D 

G0TO940 

N ( A)=B 

1280 ONHHGOSUB20250,21500 

1880 NEXTB 

1285 TEXT:GOTOl230 

1890 NEXTA 

1500 '***************************** 

1891 FORA=1T03: I FSU(A) <20RA = RE%THEN18 

1510 'ANALYSE DE TOUS LES FICHIERS 

94 

1520 '***************************** 

1892 CH=A 

1530 PRINTCHR4(4):PRINTSPCI5)CHR<(27) 

1893 FORL=1T05STEP2:GOSUB204 50 :NEXTL 

"A"CHRt<27)"N""LECTURE DES FICHIERS":P 

1894 NEXTA 

RINT:PRINT 

1895 '***** ANALYSE SUITE ***** 

1540 GOSUB20000 

1 896 FORA=1T03 

1550 A=1:COY=0:FO=0 

1897 PRINT 

1560 REPEAT 

1900 PRINTCHR*(4)CHR*(27)"G"CHR*(27)" 

1570 IFA=REXTHEN1650 

J"MA*(A) 

1580 !OPENNR*(A) 

1910 PRINTCHR*(4) 

1590 ÎREWINDA 

1920 PRINT"nombre de notes ",SU(A) 

1600 !WHEREA: SU(A) = < DEEK(#4BF)-1)/2 

1925 IFSU(A)<1THENPRINT"ANALYSE IMPOS 

1610 IFSU< A ) < 1THEN1645 

SI BLE":GOTOl960 

1611 PRINT :PRINTCHR*(27)"G"CHR* < 27)"J 

1930 PRINT"mei11eure note ";M(A); M le 

"MA*(A):PRINT:PRINT 

" ; DI ♦ < A , DM ( A ) ) 

1620 FORDO=1TOSU < A) 

1940 PRINT"+ mauvaise note " ; N ( A > ;" 1 

1630 !TAKEA'NO,DAt: NA<A,DO)=NO:DI *(A, 

e " ;DI♦< A,DN < A)) 

D0)=DA* 

1950 PRINT"moyenne",MOY(A) 

1635 !ERR GOTO 23130 

1960 PRINT"************************** 

1640 NEXT DO 

************ 

1645 !CLOSEA-1 

1970 NEXTA 

1650 A=A+1 

1980 SP*="-> APPUYER SUR UNE TOUCHE < 

1655 !ERR GOTO 23130 

_ Il 

1660 UNTILA> =4 

1981 GOSUB20000 

1670 CLS:PRINT:PRINTSPCI5)CHR*(27)"A" 

1982 SP* = "INSEREZ LA DISQUETTE!tapez 

CHR$(27)"N""ANALYSE DES FICHIERS" 

une lettre)" 

1680 PRINTCHR*(4) 

1983 IFSU(1)<1ANDSU(2)<1ANDSU<3)<1 THE 

1690 PRINT®1,3;"********************* 

N200 

****************" 

1985 '****. ANALYSE SUITE **** 

1725 FO=SU(1)+SU(2)+SU< 3) 

1989 PRINTCHR*(4) 

1726 U=1 

1990 CLS:PRINT:PRINTSPCI5)CHRt ( 27 ) "A" 

1740 FORA=1T03 

CHR*(27)"N""ANALYSE DES FICHIERS" 

1745 IFSU(A)<1THEN1790 

2000 PRINT:PRINT:PRINT!PRINT:PRINT:PR 

1750 FORB=1TOSU(A) 

INT:PRINT:PRINT:PRINT 

1760 HU(U)=NA < A , B ):RU*(U)=DI*(A,B) 

2001 FORA=1TOFO 

1770 U=U+1 

2003 COY=GOY+HU<A) 

1780 NEXTB 

2004 NEXTA 

1790 NEXTA 

2007 COY =I NT(COY * 10/FO)/10 

1791 FORA=1T03: IFSU< A)<1THEN1795 

2010 PRINTCHR*(27)"G"CHR*(27)"J n "Nomb 

1792 FORB=1TOSU(A) 

re total de notes",FO 

1793 MOY(A)=MOY < A)+NA < A,B) 

2012 COY=I NT(COY*1O/UY)/10 

1794 NEXTB 

2030 PRINT .‘PRINTCHR* (27) "G"CHR* (27) " J 

1795 NEXTA 

""Moyenne genera 1e " ,COY 

1796 FORA=1T03 

2032 PRINTCHR*(4) 

1797 IFSU < A )< 1THEN1799 

2040 PRINT®2,18)"VOULEZ VOUS ": PRINT® 

1798 MOY(A ) = INT(MOY(A)* 10/SU< A))/10 

1,19 ; " 1 la liste des notes indiferenci 

1799 NEXTA 

ees" 

1800 FORA=1T03 

2050 PRINT®1,20.: "2 la liste des notes 

1805 IFSU ( A )< 1THEN1840 

par matières" 

1810 F0RB=1TOSU (A) 

2060 PRINT®1,21 ; "3 le graphe des note 

1820 IFNA ( A,B )> M ( A ) THENM ( A ) =NA < A , B ) :D 

s des 3 matieres" 

M ( A ) =B 

2065 PRINT@1,22;"4 revenir au menu" 

1830 NEXTB 

2066 PRINT®1,23;"5 écran recapitulati 

1840 NEXTA 

f " 
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2070 GETU 

2080 IFW<10RU>6THEN2040 

2090 IFU <>4THEN2095 

2091 FORA =1T03:MOY(A)=0:N(A)=20:M(A)= 
0 :NEXTA:U=1 :GOTO940 

2095 IFW=5THENCOY=0:CLS:GOTOl895 
2100 ONWGOSUB20750,20920,21700 
2110 TEXT 
2120 GOT02040 

20000 '***************************** 
20002 ' AFFICHAGE DISQUETTE 
20004 ****t**t***tt**ttt*t******tt** 
20010 POKE#BB80,12:FORB=1TOLEN<SP»): P 
OKE#BB80+B,ASC(MID$(SP*,B)):NEXTB 
20020 POKE#BB80,12 
20030 PING:GETT* 

20040 FORB=#BBBOTO#BBAB:POKEB,32 :NEXT 
20050 RETURN 

20100 '*************************** 

20105 ' AFFICHAGE DES MATIERES 

20106 '*************************** 

20109 PRINTCHR* < 4) :PRINT©1,4 ;"", 

20110 FORB=1T03 

20120 PRINT:PRINT:PRINT:PRINTCHR»(27) 
"G"CHR*(27)"J"B,MA»(B) 

20130 NEXTB:PRINTCHR*(4):RETURN 

20150 '************************** 

20151 ' DONNEES DES FICHIERS 

20152 '************************** 
20155 UP * = "2 01816141210":OP»="86420" 
20170 FORC=1T03:READMA* < C) :NEXTC 
20180 NT» <1) ="N0TE1,S=1 ": NT»(2) = "NOTE 

2,S=2": NT»(3) = "NOTE3,S=3" 

20190 NT » < 4) = "NOTE4, S=4 " 

20200 NR»(1)="NOTE1=1":NR*(2)="NOTE2= 
2":NR»(3)="NOTE3=3" 

20210 CALL#F766:SP*="INSEREZ LA DISQU 
ETTE( tapei une lettre)". 

20220 RETURN 

20250 '**************************** 
20252 ' LISTE DES NOTES 
20254 '**************************** 
20260 CLS:PRINTCHR»(4):PRINTSPC<7)CHR 
♦<27)"A"CHR»(27)"J""LISTE DES NOTES":P 
R INT : PRINTCHR*(4 ) 

20270 PRINT : PRINT : PRINT"MATIERE :":PRI 
NTCHR»(4)CHR*(27)"F"CHR*(27)"J"MA» < CH) 

:PRINTCHR»(4 ) 

20280 PRI NT : PRINT : PRI NT 
20290 B=1 

20 300 PR I NTI NT(NA(CH,B)*10)/10,"! !" ,D 
I * <CH,B) 

20400 B=B +1 

20410 IFDI♦< CH,B) = ""THEN20430 
20420 IFB=1OORINT(<B-9)/22)=(B-9)/22T 
HEN20422ELSE20300 

20422 PRINTCHR»(27)"L": PRINT"< appuyé 
r sur une touche S.V.P >":GETA» 

20423 GOT020300 

20430 PRINT"FIN DE LISTE . presseï un 
e touche":GETA* 

20445 RETURN 

20448 '**************************** 

20449 ' CLASSEMENT PAR DATE 


20450 '**************************** 

20451 '*** PARTIE 1 *** 

20460 I=SU(CH)-1 

20470 REPEAT 
20480 AB=FALSE 
20490 FORJ=1TOI 

20500 IFVALIMID»(DI »<CH,J),L,2))< = VAL 
(MID»(DI »(CH,J + l),L,2))THEN20560 
20510 X*=DI*(CH,J):Y=NA(CH,J) 

20520 DI♦(CH,J)=DI*(CH,J+l) 

20530 NA(CH,J)=NA(CH,J +1) 

20540 DI*(CH,J+l)=X»:NA(CH,J+l)=Y 

20550 AB=TRUE 

20560 NEXT J 

20565 1=1-1 

20570 UNTIL AB=FALSE 

20580 RETURN 

20600 '*** PARTIE2 *** 

20610 I=FO-1 
20620 REPEAT 
20630 AB=FALSE 
20640 FORJ=1TOI 

20650 IFVAL(MID*(RU*(J),L,2))<=VAL(MI 
D*(RU*(J+l),L,2))THEN20710 
20660 X*=RU»(J):Y=HU< J) 

20670 RU*(J)=RU♦(J+l) 

20675 HU(J)=HU(J+l) 

20680 RU*(J+l)=X»:HU<J+l)=Y 

20690 AB=TRUE 

20710 NEXTJ 

20720 1=1-1 

20730 UNTILAB=FALSE 

20740 RETURN 

20750 '***************************** 
20760 'LISTE DES NOTES INDIFFERENCIEE 

20790 '***************************** 
20800 CLS:PRINTCHR»(4) : PRINTCHR»<27)" 
A"CHR * < 2 7)"N""LISTE DES NOTES INDIFFER 
ENCIEES" 

20810 PRINTCHR»(4) 

20815 PRINT :PRINT 
20820 B=1 

20830 PRINTINT ( HU ( B) * 1 0 ) / 10 , " : " ,RU* ( 

B) 

20840 B=B+1 

20850 IFRU*(B)=""THEN20900 
20860 IFB=140RI NT((B-13)/22) = <B-9)/22 
THEN20870ELSE20830 

20870 PRINTCHR*(27)"L":PRINT"< appuyé 
r sur une touche S.V.P >":GETA» 

20B80 GOTO20830 

20900 PRINT"FIN DE LISTE . presseï un 
e touche":GETA» 

20910 RETURN 

20920 '**************************** 
20930 ' LISTE PAR MATIERE 
20940 '**************************** 
20950 CLS:PRINTCHR*(4):PRINTSPC(7)CHR 
♦ (27)"A"CHR» < 27)"J""LISTE PAR MATIERE" 
20960 PRINTCHR»(4):GOSUB20100 
20970 PRINT©15,22)"VOTRE CHOIX !")!IN 
PUTII 

20980 IF11> 30R11<1THEN20970 




20990 CH=ll 
20999 PRINT I PRINT 
21010 GOSUB20250 
21020 RETURN 

21050 '***************************** 

21060 ' AFFICHAGE 0 A 20 

21070 '***************************** 

21080 HIRES :GURSETO,0,0 

21090 FORA=1TOLEN < UP*)STEP2 

21100 CHARASCIMID*<UP*,A,1>),0,1 

21110 CURM0V5,0,0 

21120 CHARASC( MI Dt < UPt,A+1,1)> ,0,1 
21125 CURMOV-5,16,0:NEXTA 
21130 FORA=1TOLEN(OP t) 

21140 CHARASC( M IDt(OPt, A , 1 ) ) , 0,1 
21150 CURMOVO,16,0 
21160 NEXTA 

21165 CURSET13,82,0:FILL1,36,67 
21170 RETURN 

21500 '**************************** 
21510 ' GRAPHE D'I MATIERE 
21520 '**************************** 
21530 GOSUB21080 

21545 IFSU(CH)<3THENPRINT"TRACE IMPOS 
SIBLE”:G0T021670 
21550 PA=INT< 200/(SU(CH)-1)) 

21560 X=10 

21580 Y= ( 20-NA(.CH, 1 ) ) *8 + 2 
21590 CURSETX,Y,1 
21600 FORA=2TOSU(CH) 

21620 W=(20-NA(CH,A))*8+2 
21630 Y=W-ABS < Y) 

21640 DRAWPA,Y,1 
21645 Y=U 
21650 NEXTA 

21660 PRINT"MAT1ERE " ! MAt(CH);" DU "1 
DI *(CH,1)J" AU "; DI♦<CH,A-1 )1 
21670 PRINT"-> tapez une touche <-":G 
ETA* 

21675 TEXT 
21690 RETURN 

21695 '*************************** 

21696 ' GRAPHE DE 3 MATIERES 

21697 '*************************** 
21700 GOSUB21080 

21705 FORA=1T03 

21710 IFSU(A)<3THEN21810 

21712 PA=INT C 200/(SU < A)-1)) 

21715 IFA=1THENPATTERN24 

21716 IFA=2THENPATTERN227 

21717 IFA=3THENPATTERN255 
21720 X=10 

21730 Y=(20-NA(A,1))*8+2 
21740 CURSETX,Y,1 
21750 FORB=2TOSU(A) 

21770 W=(20-NA(A,B)>*8+2 
21780 Y=W-ABS(Y) 

21790 DRAUPA,Y,1 

21795 Y=W 

21800 NEXTB 

21810 NEXTA 

21820 CURSETO,190,0 

21830 FORA=1T03 

21840 IFSU < A)<3THEN21870 

21851 IFA=1THENPATTERN24 


21852 IFA=2THENPATTERN227 

21853 IFA=3THENPATTERN255 
21860 DRAW30,0,1:DRAW30,0,0 
21870 NEXTA 

21880 PRINT"math allem histo", 
21920 PATTERN255 

21930 PRINT"-> appuyer sur une touche 

<-" : 

21940 GETR* 

21945 TEXT 
21950 RETURN 

22700 '*************************** 
22710 ' FIN 

22720 '*************************** 
22725 !EROFF 

22730 PRINTCHR*(4):PRINTSPC(10)CHR$<2 

7)"A"CHR*<27)"N“"AU REVOIR _":PRINT 

22740 PRINTCHR* < 4): PING: WA IT300:CLS:E 
ND 

22800 '*************************** 

22810 ' PRESENTATION 

22820 '*************************** 

22830 CLS 

22840 FORK=0TOl3 

22850 COL=K 

22860 IFCOL> 7THENCOL=COL-8 
22870 CP=COL-1 
22880 F0RR=KT026-K 
22890 PLOTK,R,COL+16 
22900 PLOT38-K,R,CP+16 
22910 NEXTR 
22920 NEXTK 

22930 PLOT15,13,"NOTE CALC" 

22940 FOR1=1T025 

22950 MUSIC1,OC(I),NO(I),0 : MUSIC2,OC( 
I> + l,NO<I>,0 :PLAY3,0,1,8000 :WAITWA(I) 
22960 NEXTI 

22970 CLS:PLOT4,10,"ecrit par PASCAL 
JANCOURT" 

22980 WAIT200 
22990 RETURN 

23100 '*************************** 

23110 ' ERREUR DE DISK 

23120 '*************************** 

23130 CLS 

23140 P=PEEK<#489) 

23150 IFP=1THENPL0T5,10,"FICHIER EXIS 
TANT DEJA !": GOTO 23210 
23160 IFP=5THENPLOT5,10,"LE DISQUE ES 
T PLEIN !”:G0T023210 
23170 IFP=6THENPLOT2,10,"ERREUR DE LE 
CTURE OU ECRITURE !":G0T023210 
23180 IFP=7THENPLOT5,10,"FICHIER NON 
TROUVE !■:G0TO23210 ' 

23190 IFP=10THENPLOT5,10,"ERREUR GRAV 
E DU TDOS":GOTO23210 
23200 IFP=12THENPL0T5,10,"FICHIER TRO 
P NOMBREUX":G0T023210 
23205 PLOTS,10,"ERREUR INDEFINIE !" 
23210 PLOT1,20,"appuyer sur une t 
ouche <—" 

23215 ZAP 
23220 GETU* 

23225 POKE#489,0 
23230 GOTO200I 





BELIER 

Vous manifestez une vitalité, 
une activité très propices au 
renouvellement de votre façon 
de travailler Votre entourage 
le remarque, et vous allez 
nouer de fructueux contacts. 
Une très grande fougue anime 
votre vie affective 



ASTROLOGIE 

OCTOBRE 


LION 

Vous manifestez le désir de 
dépasser vos limites, de vous 
exprimer à travers de nouvel 
les activités. L'impatience peut 
vous jouer des tours. Agissez 
avec tact envers votre entou 
rage. Il y a beaucoup de pas 
sion dans votre vie sentimen 
taie, aussi mesurez vos élans 
amoureux. 



SAGITTAIRE 

Votre activité professionnelle 
e6t la cause de quelques sou 
cis. Ce mois-ci. vous aurez a 
résoudre une difficulté et vous 
y parviendrez. Une rencontre 
inattendue se produit. Une cer 
taine harmonie règne au sein 
de votre vie familiale. 




VERSEAU 


Vous avez des idées originales 
que vous pouvez appliquer 
dans le cadre de votre travail. 
Imposez vos conceptions avec 
tact. Vos amis tirent profit de 
votre bon cœur. Sur le plan 
sentimental, vous vous com 
portez de manière fantasque 



TAUREAU 

Vous allez entreprendre une 
tâche de longue haleine, rôali 
ser un projet. Ne refusez pas 
l aide de vos amis Leurs 
conseils sont précieux L'as 
pect harmonieux Vénus Jupi¬ 
ter équilibre votre vie affective, 
renforce une liaison amou 
reuse. 



VIERGE 

Vous devrez mettre de l'ordre 
dans vos activités profession 
nelles Dans vos relations, 
vous aurez un différend dont 
vous vous sortirez avantageu 
sement Des problèmes d'ar 
gent trouveront une solution. 
Quelques efforts sur le plan 
sentimental seraient les bien 
venus 



CAPRICORNE 

La patience finit par porter ses 
fruits Sachez exercer votre 
activité sans dévier de la voie 
que vous avez choisie. Votre 
flègme cache des sentiments 
intenses Sur le plan affectif, 
vous chercherez â communi¬ 
quer vos passions, è sortir de 
votre réserve naturelle 



POISSONS 

Vous devez clarifier quelques 
points avant de connaître 
l’amélioration de votre travail 
que promet Jupiter dans votre 
signe Vous recherchez de 
nouveaux contacts et faites 
preuve de sociabilité. Vous tra 
versez une bonne période sur 
le plan sentimental. 



GEMEAUX 

Une attitude énergique à 
l'égard de votre profession 
contribue à faire évoluer votre 
situation. Très sociable et à 
l'écoute des autres, vous allez 
faire de nouvelles rencontres. 
Sur le plan sentimental, vous 
découvrirez les richesses d'un 
être aimé 



CANCER 

Vous allez faire preuve d'ingé¬ 
niosité afin de surmonter un 
obstacle concernant vos acti 
vités. Vous trouverez auprès 
de votre famille une aide pré 
cieuse. Vous traverserez une 
très bonne période sur le plan 
affectif, riche et stable. 



BALANCE 

Vous êtes en grande forme. 
Les intuitions que vos pouvez 
avoir s’avèrent très judicieu 
ses. Des prises de contact 
importantes amorcent un 
renouvellement de vos activi¬ 
tés. Excellentes dispositions 
affectives grâce au tngone 
Vénus Jupiter 



SCORPION 

Vous pouvez concevoir un 
projet, mais cetains obstacles 
peuvent survenir dans la réali¬ 
sation de vos idées. Avec l as 
pect harmonieux de Vénus 
dans votre signe, votre vie 
sentimentale se rééquilibre. 
Période favorable è un ôpa 
nouissement affectif. 
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TO n°24 


ABONNEZ 

VOUS^H 






(0 „ en ,-,oa : I- 50 RACOM/ ■ 

F à Tordre àe > l 

Pour être pris OV ° n ’ '“.'prénom . 

nom .. . 

Adresse • 

|Cod® P° s1al 

sofucm 

^ Tarif avion^. - -- 

LÈS DISQüffTËS"DË~THËORIC 

Tous les programmes de THEORIC, groupés par deux numéros sur une disquette. Plus de perte de temps 
pour les taper... Existe pour le moment en JÀSMIN seulement. 

Le prix : 135 F pour les abonnés (joindre impérativement l'étiquette), 165 F pour les autres. 

Avertissement : les programmes stockés sur ces disquettes sont tels que parus dans THEORIC. A vous de les 
adapter à vos besoins et au fonctionnement sur disque lorsque nécessaire. 

N" 1 THEORIC n° 4 et 5 U PRTFORDA. BAS S 20 SECTORS 

N 0 2 THEORIC n° 6 et 7 U STRING .BAS S 11 SECTDRS 

N* 3 THEORIC n° 8 et 9 u rn pRRûPW pop c 

N° 4 THEORIC n° 10 et 12 ^ S 28 SECT0RS 

N° 5 THEORIC n° 13 et 14 U TRAMDATA. BAS S 47 SECTORS 

N° 6 THEORIC n° 15 et 16 u CAMEMBER. BAS S 4 SECTORS 

N° 7 THEORIC n° 17 et 18 U CASSEBRI.BAS S 11 SECTORS 

N° 8 THEORIC n° 19 et 20 U CASSEBRI.BIN S 5 SECTORS 

N° HS THEORIC HORS SERIE (n° 11) U CL IF DEMO. BAS S 14 SECTORS 

U SING5 .BIN S 17 SECTORS 

VOLUME : T023?<24 fprSovoo" Ile = 17 SECTORS 

U ECR59X28.BAS S 24 SECTORS 

U TABLORIC.BAS S 34 SECTORS ü CALCULSN.BAS S 23 SECTORS 

U MINEDIT .BAS S 7 SECTORS U MINIPRNT.BAS S 29 SECTORS 

U PRTFORMA.BAS S 5 SECTORS U NOTECALC.BAS S 44 SECTORS 

U PRTFORMA.BI N S _7 SECTORS 327 SECTORS FREE 

BON Di COMMANDE 
DES DISQUETTES THEORIC 

Je commande les disquettes 1 2 3 4 5 HS 6 78 NOM .Prénom. 

Ci-joint : 135 F par disquette et mon étiquette abonné 

165 F par disquette car je ne suit pas abonné Adresse. 

Soit au total la somme de F réglée por chè- Code Postal .... Ville . 

que ci-joint. 
























PETITES ANNONCES 


La place réservée aux petites annonces est 
limitée. En conséquence, celles-ci passent 
dans leur ordre d'arrivée. Par contre, les peti¬ 
tes annonces farfelues sont systématique¬ 
ment rejetées... De même, comme il est peu 
probable qu'il existe des "généreux dona¬ 
teurs" de matériels ou de logiciels, les peti¬ 
tes annonces faisant appel è ces philantro- 
pes ne seront insérées que si la place libre 
le permet. 

Seront refusées toutes les annonces visant 
à vendre ou échanger des listes ou copies de 
logiciels non garantis "d'origine", ainsi que 
toute annonce incitant au piratage. 

En conséquence, réfléchissez bien avant 
d'envoyer vos textes. 

Les petites annonces doivent impérativement 
nous parvenir sur la grille (découpée ou pho¬ 
tocopiée), le texte étant rédigé è raison d'un 
caractère par case. 

Enfin, toute annonce non accompagnée de 

timbres ne sera pas insérée. 

Vends THEORIC n° 1. 4. 6 à 16 et 18 (20 F cha 
cun ou 250 F le tout!. Vends programmes ORIC 1 : 
14 F par jeu (échanges possibles). Envoyer K7 ♦ 
liste à Frédéric INFARNET, Le Pin, 83230 BORMES 
LES MIMOSAS. 

Vends ATMOS + lecteur K 7 + moniteur mono 
chrome + 4 K7 de jeu + 3 THEORIC : 2000 F. 
Demander Alexandre au 86.75.20.75. 

Echange 100 programmes sur JASMIN 2 + 
ORIC/ATMOS. Tél. 77.57.06.66 après 19h. 
Marco. 

Echange programmes sur ORIC. François RIGAUT, 
Rue du Pont de Bois. "Le Bourgogne". 03400 
YZEURE. tél.: 70.46.35.96 

Vends revues 0.1. et Micro Système. Recherche 
ORIC 1 ATMOS CBM 64 et périph.. même en 
panne. Tél.: 21.28.56 42. 

Vends livres (dont manuels d'A. CHENIERE) et cas 
settes pour ATMOS. F. TARAUD, tél.: 
38.93.83 64. 


Echange jeux ATMOS contre mt. joystick prog 
ampli bus ou synthé vocal. Demander Thierry au ( 11 
47.33.70 19 

Cherche moniteur ou TV couleur pour ORIC 
ATMOS, tbe. prix 500 F ou plus Jean Paul CHA 
VANT. 13 rue des Potiers. 31 TOULOUSE, tél 
61.62.38.49. 

Vends ORIC 1 complet (ROM V1.1 ) : 600 F. Zenith 
vert : 650 F cause double emploi. M VERET. tel 
46 71 22 22 poste 343 HB. 48 52 82 18 (doml 

Vends ATMOS » péritel + cordon magnéto + 3 
cassettes jeux » revues ♦ livres, cause double 
emploi 1200 F Tel : 96 94 01 21 

Cherche contact Hobbyscope. Basicode. ATMOS 
CHAUSSENERY. Bonzac. 33230 COUTRAS 


Achète manuel ATMOS (livré avec l'ATMOS lors 
de l'achat), livre rose. L. VIALIS. tél.: 66.47.37.84 

ORIC ATMOS cherche contacts pour échanges 
Olivier GAUDEFROY. 7 rue du Bail Ansauvillers. 
60120 BRETEUIL. 

Vends logiciels K7 ORIC-1 /ATMOS (les 30 
300 F ; 50 : 400 F : 70 : 500 F ; 100 700 F). L 
MORBELLI. 1 2 rue Courtot. 87000 LIMOGES, tél. : 
55.50.20 30. 

Possesseur ATMOS cherche personnes pour 
échanges programmes. Patrice GUERRIN. 38 A. 
Guidon, 90000 BELFORT. Envoyez liste, réponse 
assurée. 

Echange 100 programmes sur JASMIN 2 + 
ORIC/ATMOS. Tél. 77.57.06.66 après 19h. 
Marco. 

ORIC 1 ♦ JASMIN cherche contacts. M. GIC 
QUEL. 4 allée de Tronçais, 77176 SAVIGNY LE 
TEMPLE. 

Vends ATMOS + Jasmin + Interface joystick + 
joystick + Amplibus +■ nombreux jeux. Prix à 
débattre. Tél. 55.33.33.31. Dimitri SINGER. 

Vends programmes ORIC-1 environ 10 F par jeu. 
Pour recevoir liste, écrire à Stép. AGUILLERA. 4 rue 
des Mésanges. 94450 LIMEIL. 


Futur possesseur Téléstrat vend Sédoric + doc. 
400 F Carte ext. ECS I : 350 F Yann LE FLAN 
CHEC. 20 av de Tarente. 29200 BREST, tél.. 
98 03 47.02 

Vends Jasmin 2 *■ logiciels (MPaint. Ongraph. 
Triathlon. Fongus. Starter. Stnp) Vends FX 4000G 
Casio synthé. Tél.: 47.66.89 77 Paris. 

Vends FT 707 Yaesu + micro 4- 1 1 m be magné¬ 
toscope VHS Thomson, télécom cassettes, neuf. 
Tél 49.79 84 69 HR le soir, demander Jacky 

Vends Microdisc Sédoric garantie : 1900 F Atmos. 
livres, revues. Théorie, logic. 600 F. le tout : 
2400 F Tél 34 15 96 99 

Vends méthode assimil anglais pour ORIC 1 ou 
ORIC ATMOS 400 F neuf Demander Michel au 
48 54 22 35 

Ch contacts ORIC 1 et Jasmin 1 en Aveyron. Ch 
aussi plan programme d'EPROM G BARRET, 
12530 MOYRAZES 

ATMOS ♦ JASMIN recherche correspondants pour 
échanges. Bernard GIRARD, 1 1 Jachères. 25320 
MONTFERRAND 

Vends ATMOS + Jasmin + MCP 40 + collection 
Hebdogiciel + livres + Easytext 4 Amifich + Ges 
tion familiale 2800 F, M. BURGUN au 
69.43 27 56 après 20h. 

Possesseur ORIC cherche contacts pour échanges 
logiciels, région Brest. Contacter Club Microtel, tél.: 
98.49 74 41 le mardi après 8h30. Demander Alain. 


Vends ATMOS + Jasmin 2 ♦ imprimante GP 
550A + livres + logiciels 4- disquettes vierges : 
4000 F. M GAONAC'H. tél 47.51.99.80 

Vends ATMOS + JASMIN + 23 disquettes avec 
1 50 programmes et 4 Tran + livres : 3500 F. Tél.: 
34 83 92.66. poste 465. M MERUOT 


Urgent : Vends ATMOS : 500 F 4- en cadeau 
THEORIC n° 16. 18. 20 + un jeu en K7 : Elektro 
storm. Tél.: 39.56.34.96. L. CARRE. 78350 JOUY 
EN JOSAS. 


ANNONCEZ-VOUS ! 

les petites annonces et les messages 



j» Coupon à renvoyer accompagné de 3 timbres à 2,20 F à : 

•- SORACOM, La Haie de Pan, 35170 BRUZ 
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AU SOMMAIRE DES 
ANCIENS NUMEROS DE 


thévric 


LMitares: 


Editeur 


(Pour les seuls numéros encore disponibles 
en mai 1986) 

NUMERO 4 

SYNTHETIS : logiciel d'accompagnemdnt du 
synthétiseur vocal. ESSAI DE LA PHS 60 
interface PERITEL/UHF. Recopie graphique 
sur GP 50. Banc d'essai du modem DIGITE- 
LEC DTL 2000. Drapeaux : programme de 
jeu. Interfaces joystick : comparatif. 


du MONITEUR 1.0 de LORICIELS. CROCKY : 
jeu Compte bancaire : gérez-le sur MICRO- 
DISC (11. Compatibilité DTL 2000 et JAS¬ 
MIN 

NUMERO 11 

Hors-série rempli d'une multitude de pro¬ 
grammes en tous genres. 


NUMERO 16 

Le TELESTRAT arrive. Animation graphique 

améliorée. Musique : un choral de Bach. Elé¬ 
ments de programmation en Basic. Un jeu : 
l'Escadron suisse. Le MINITEL : périphérique 
intelligent. Deux recopies d'écran pour 
GP 100. Un logiciel pour les petits ; POULE. 
Jasmin et Microdisc : ils communiquent. 

NUMERO 17 


NUMERO 6 

Essai de I XL DOS. AUTOVERIF pour amé 
liorer la fiabilité du chargement cassette. 
Essai de la carte 8 E/S MAGECO. VOICE : 
ORIC parle sans interface. RENUM-DESTRUC 
renumérotation et suppression de lignes 
Basic. Les interruptions : une horloge. 
Master-Mind : jeu. ANADIS : analyse de dis¬ 
quettes au format MICRODISC. La Jasmin- 
Printer (Brother Ml009) à l'essai et recopie 
d’écran pour cette imprimante. 

NUMERO 7 

BLURK'S : jeu. Editeur de caractères pour 
redéfinir le jeu de caractères. Calculs en lan¬ 
gage machine pour aller plus vite. Lecture et 
Ecriture de secteurs sur Jasmin ou comment 
réparer une disquette. Tour d'horizon des 
Moniteurs-Assembleurs du commerce. Le 
magnéto sans angoisse ou comment amélio¬ 
rer le chargement des cassettes. Essai du 
RANDOS. Essai du crayon optique. Recopie 
d'écran sur MCP 40. L'interface TVS. 

NUMERO 8 

Une alimentation secourue pour se jouer des 
coupures de courant. L'OF}IC et fes SPRITES. 
Un coffret pourPRIC : tout en un. Comment 
brancher ORldsur un moniteur monochrome. 
Domptez votre MICRODISC. Modifier le 
T-DOS. Logiciel de Facturation. Implantez du 
binaire dans des DATA : CREADATA. 

NUMERO 10 

Essai du modem TONIC. Le Basic Français. 
Utilitaires pour vous plaire 111. Modifications 


NUMERO 12 

Ecrivez votre jeu d'aventure : COLDITZ. Le 
DTL 2000+ un serveur pas cher. Schéma 
électronique de l'ORIC. Essai de la table gra¬ 
phique GRAPHISCOP. Le partage mémoire de 
l’ORIC. Utilitaires pour vous plaire (2). Un 
Moniteur-Assembleur. Compte bancaire 
(suite et fin). 

NUMERO 13 

Transfert du FORTH sur MICRODISC. TAN¬ 
DEM 13 un logiciel pour le DTL 2000. Jouez 
avec les couleurs de l’ORIC. Utilitaires pour 
vous plaire (3). Créer des fenêtres sur ORIC. 
MICRODISC et JASMIN : ils communiquent. 
City on Raid : jeu. 

NUMERO 14 

Le SEDORIC à la loupe. Un éditeur de carac¬ 
tères en langage machine CONJUGAISON : 
ORIC à l'école. Sortir le son sur le téléviseur. 
Fenêtres (fin). Calculez votre Epargne- 
Logement. Scrolling latéral. Sauvegarde des 
variables avec l'ORIC-1. Un utilitaire : Super 
Désassembleur. Jouez avec les Mots- 
Cachés. 

NUMERO 15 

Une imprimante à l'essai : la MT 80S. Spiro¬ 
graphe : rosaces et arabesques. TRON les 
motos de lumière (jeu). Essai de la carte 256 
couleurs de Microfutur. Editeur de secteurs 
sur Jasmin MUSICORIC pour que l'ORIC-1 
devienne musicien. Carte série pour liaison 
avec MINITEL. Educatif : le moteur è 4 
temps. Redéfinition de caractères pour 
EASYTEXT. 


Le TELESTRAT se présente. Transfert de 
l'écran TEXT en HIRES (1). Conversion du 
binaire en DATA. ORICTEL : logiciel d’appli¬ 
cation de la carte série Minitel. Recopie rapide 
sur imprimante mode texte. Ecriture évoluée. 
LEONARD : utilitaire de dessin ( 1 ). Fiches de 
paye : comment calculer les salaires avec 
ORIC. Jaquettes de cassettes pour GP 50. 
Catalogue amélioré sur Jasmin. 

NUMERO 18 

Un drive 3"1/2 à l'essai. Triphonie : l’ORIC 
devient orgue. Connaissez-vous les objets 
fractals ? Le Devin : chirologie ou jeu ? Un 
jeu : Frog Panic. Pour lister un programme à 
partir du MINITEL (et de la carte série) : 
MLIST. Accordez vos instruments de musi¬ 
que avec Fréquencemètre. Text-Hires (fin). 
Léonard (suite). Deux recopies d’écran : 
GP 550 et Brother M1009 (Jasmin Printer). 
Lister l'EPROM du Microdisc. 

NUMERO 19 

Léonard : fin de l'utilitaire création graphique. 
Modifications de l'ATMOS et du MICRO¬ 
DISC. Un mini-interpréteur. Protection du 
HIMEM. Le tri en langage machine. Jeu édu¬ 
catif : EUROP'ORIC. En savoir plus sur le 
SEDORIC. Compte bancaire : gérez-le sur 
JASMIN. Utilitaires pour vous plaire (4). 

Les articles et programmes rappelés ci- 
dessus ne forment que l’essentiel des diffé¬ 
rents numéros de THEORIC cités. Les essais 
des différents logiciels, les trucs et astuces, 
etc. sont autant d'arguments qui devraient 
vous inciter é compléter votre collection de 
THEORIC. 
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ENFIN DISPONIBLE ! 


Nous vous l'annoncions depuis longtemps 
Vous l'attendiez impatiemment. 



ATTENTION ! 

Les abonnés à THEORIC 
recevront une offre spéciale 
à prix très réduit... 


Prix : 151 F + 9 F de port. 


CjWC 
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LE LIVRE 
QUE TOUT 
PROGRAMMEUR 
f Oùe AVANCE 

DOIT POSSEDER 

mm 

35170 BRUZ 


